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ABSTRACT 


Algorithms  define!  as  recursive  functions,  such  as 
in  "pure"  LISP,  are  shown  to  have  structure  sufficient 
to  distinguish  between  processes  which  must  be 
executed  in  sequence  and  processes  which  may  be 
executed  in  parallel. 

An  interpreter  program  is  presented  for  executing 
LISP  programs  and  simultaneously  computing  the  number 
of  processors  needed  at  each  step  of  program  execution 
in  order  to  achieve  optimum  parallel  processing. 
Sample  program  runs  are  presented  to  show  speed-up 
ratios  between  strictly  sequential  and  optimalxy 
parallel  executions. 

A possible  hardware  organization  for  a parallel 
processing  system  derived  from  the  interpreter  program 
is  presented. 
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INTRODUCTION 


Both  the  growing  volume  of  business  da 
the  increasing  complexity  of  proble 
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attainable  from  the  latest  versions 

sequential  machines  appears  to  be  approac 
the  final  speed  of  electromagnetic  wave  p 
more  cosrly,  non -traditional,  parallel 
encumbered  by  software  complexities. 
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Because  much  of  rhe  processing  done  by  sequential 
machines  consists  of  independent  sub-processes,  it  has  long 
been  recognized  tnat  efficiency  could  be  improved  if  these 
independent  sub- processes  could  be  performed  simultaneously. 
Considerable  progress  has  been  made  in  this  area  by  building 
more  sophisticated  systems  from  basic  Von  Neumann  machines. 
Multiprocessor  systems  enable  multiple  processors  to  share  a 
common  core  memory  while  simultaneoulsy  processing 
independent  programs.  A distributed  system  represents  a 
network  of  computers,  each  with  its  own  memory,  working 
together  on  independent  (or  nearly  independent)  programs  in 
order  to  solve  a common  problem. 

But  individual  programs  themselves  may  contain 
independent  segments  which  could  be  executed  in  parallel. 
Machines  which  have  been  designed  to  perform  parallel 
executions  of  single  programs  represent  significant 


! As  used  herein,  efficiency 
throughput  or  execution  speed. 


means  a measure  of 
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departures  in  organization  from 
Thurber  and  Wald  [Ref.  1]  provide 
processors  and  their  organizations. 

There  is  a reason  for  the  unconventional  architectures 
of  parallel  processors.  Single  programs  may  be  thought  of 
as  mathematical  functions  which  map  a single  input  data  set 
to  a single  output  data  set.  This  means  that  the  results  of 
parallel  computations  must  eventually  be  brought  together  to 
produce  the  final  output.  Hence,  the  actions  of  the 
components  of  a parallel  processor  must  be  more  tightly 
coordinated  than  in  a multiprocessor  or  distributed  system. 

There  are  several  reasons  why  parallel  machines  have  not 
achieved  widespread  use.  Certainly  one  reason  is  that  many 
users  remain  satisfied  with  sequential  machines  as  long  as 
they  continue  to  meet  their  efficiency  requirements. 
Another  reason  is  that  the  parallel  machines  developed  so 
far  require  an  additional  degree  of  software  complexity  in 
order  to  distinguish  between  parallel  and  sequential  tasks. 
Hardware  cost  is  anotner  reason.  In  the  past,  the  cost  of 
logic  elements  was  much  greater  than  the  cost  of  memory 
elements.  Memories  were  designed  to  be  accessed  through  a 
single  port.  These  factors  were  in  line  with  the  Von 
Neumann  principles  of  sequential,  centralized  control  of 
computations  and  linearly  organized  memory. 

But  now,  advances  in  technology  are  making  it  possible 
to  define  a new  set  of  principles  for  computer  design. 
Glushkov,  et.  al. , [Ref.  2]  present  a set  of  five 
principles,  quite  different  from  the  Von  Neumann  principles, 
for  the  design  of  what  they  call  recursive  machines.  The 
advances  already  made  by  LSI  technology  make  the 
possibilities  seem  endless.  Manufacturers  are  currently 
producing  single-chip  computers  (memory  and  CPU  on  one 
chip) . It  is  not  inconceivable  to  imagine  an  array  of 


bipolar  processors  on  a single  chip.  Memory  technologies 
are  improving  too,  making  it  possible  to  access  data  faster 
and  in  parallel. 

A.  DEVELOPING  A PARALLEL  SYSTEM 

In  the  past  the  development  of  parallel  processor 
systems  has  been  characterized  by  the  development  of  the 
hardware  organization  first,  followed  by  efforts  to 
implement  compatible  software.  As  an  example,  the  ILLIAC  IV 
computer  [Ref.  3]  was  designed  to  capitalize  on  the 
parallelism  inherent  in  problems  where  the  data  is  naturally 
structured  in  array  form.  The  processing  elements,  each 
with  2K  of  memory,  are  organized  into  four  8x3  arrays. 
Kuck  [sef.  4]  discusses  the  programming  language 
Tranquility  which  was  designed  for  the  ILLIAC  IV. 
Tranquility  is  an  algol-like  language  which  provides  the 
programmer  with  sequential  and  simultaneous  control 
statements. 

Ramamoorthy  and  Gonzales  [Ref.  5]  suggest  two 
approaches  to  the  problem  of  recognizing  program  tasks  which 
can  be  executed  in  parallel.  The  first  approach  is  to 
provide  the  programmer  with  tools,  like  Tranquility,  which 
enable  him  to  explicitly  indicate  tasks  which  can  be 
processed  in  parallel.  The  second  approach  involves 
preprocessing  the  source  program  to  analyze  the 
relationships  between  tasks  and  thus  determine  what  parallel 
processing  is  possible.  Lamport  [Ref.  6]  presents  two 
methods  for  enabling  parallel  execution  of  Fortran  DO  loops. 
Keller  [Ref.  7]  discusses  methods  whereby  processors  can 
"look-ahead"  to  a limited  number  of  sequentially  organized 
instructions  to  find  instructions  that  can  be  executed 
"out-of-order"  without  affecting  the  final  outcom*^. 
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Research  into  methods  of  recognizing  independent  program 
segments,  and  hence  parallelism,  within  sequential 
algorithms,  seems  worthwhile  since  it  may  permit  established 
program  libraries  to  be  efficiently  utilize>^  on  future 
parallel  processors.  Stone  [Ref.  8]  however,  points  out 
that  efficient  algorithms  designed  for  parallel  execution 
may  prove  to  be  quite  different  from  their  serial 
counterparts . 

Based  on  the  work  done  in  developing  parallel  processing 
systems  so  far,  and  on  the  recent  and  predicted  advances  in 
LSI  technology,  a reasonable  way  to  implement  a general 
purpose  parallel  processing  system  is  to  first  develop  a 
software  system  for  describing  the  parallel  execution  of 
computer  algorithms  and  then  to  organize  the  hardware  so  as 
to  pnysically  implement  the  software  system.  This  thesis 
considers  such  a software  system  and  suggests  an  approach  to 
the  hardware  organization. 

B.  SOFTWARE  FOR  A PARALLEL  SYSTEM 

I 

The  software  system  considered  is  a subset  of  an 
existing  language,  LISP,  whose  syntax  allows  easy 
recognition  of  parallel  tasks  within  a program.  In  "pure" 
LISP,  programs  are  defined  as  recursive  functions  of 
conditional  expressions  which  act  on  ordered  sets  of  input 
data.  When  evaluating  algorithms  which  are  described 
functionally,  as  in  "pure"  LISP, 2 the  procedure  is  to 
first  evaluate  the  arguments  and  then  to  apply  the  function. 
It  is  this  simple  procedure  which  differentiates  between 
what  can  be  done  in  parallel  and  what  must  be  done  in 


2 Henceforth,  the  term  LISP  will  be  used  to  mean  "pure" 

LISP. 

1 1 


sequence.  That  is  to  say,  the  arguments  to  a function 
represent  processes  which  can  be  executed  in  parallel,  while 
the  composition  of  functions  represent  processes  which  must 
be  executed  sequentially. 

In  order  to  "reveal"  the  parallelism  inherent  in  a LISP 
program  and  to  show  that  it  is  recognizable  at 
execution-time,  the  LISP  function  evalguote2  has  been 
developed.  Section  III  describes  evalguote2  in  detail. 
Evalguote2  is  similar  to  the  universal  function  evalguote. 
Evalguote  is  called  a universal  function  (or  interpreter) 
because  it  can  compute  the  result  of  any  LISP  function 
applied  to  its  arguments  if  the  result  is  defined. 
Evalquote2  also  computes  the  result  of  any  LISP  function 
applied  to  its  arguments,  and  additionally,  it  monitors  the 
data  flow  graph  which  describes  grapnically  the  sequential 
and  parallel  relationships  between  executing  LISP 
primitives.  The  output  from  evalguote2  includes  a list  of 
integers  representing  the  number  of  separate  processors 
required  to  optimize  parallel  processing  at  each  stage  of 
execution. 

In  order  to  postulate  the  effect  of  running  non-trivial, 
LISP  programs  in  a hypothetical  parallel  processing 
environment,  evalguote2  is  implemented  by  a 
LISP-metalanguage  translator  and  interpreter  written  in 
Algol-W.  This  Algol-W  program  will  henceforth  be  referred 
to  as  the  interpreter.  Section  IV  explains  the  interpreter 
and  the  results  it  has  obtained  from  processing  several 
sample  LISP  programs. 


C.  MSASJRING  PARALLELISM 


When  proposing  a parallel  processing  system  it  is 
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of  the 


necessary  to  provide  some  measure  of  the  expected 
improvement  in  efficiency.  Stone  [8]  uses  the  speed-up 
ratio  which  is  defined  for  a given  algorithm  as  the  ratio  of 
the  execution  time  for  the  best  serial  version  of  the 


+ •• 


rme 


for  the  best 


parallel 


algorithm  to  the  execution 
version  of  the  algorithm.  The  interpreter  provides  a 
similar  measure  of  efficiency  improvement  for  the  sample 
LISP  programs  evaluated.  In  this  case,  the  speed-up  ratio 
is  the  ratio  of  the  number  of  execution  steps  required  for  a 
sequential  execution  to  the  number  of  stages  required  for  a 
parallel  execution. 


The  sample  programs  analyzed  by  the  interpreter  were  not 
chosen  because  they  generate  particularly  large  speed-up 
ratios.  Rather,  they  were  chosen  as  "typical"  programs 
offering  a reasonable  blend  of  conditional  expressions, 
functional  composition,  and  recursion.  The  speed-up  ratios 
computed  for  these  programs  provide  a very  limited  view  of 
the  improved  efficiency  possible  with  a general  purpose 
parallel  processing  system.  ILLIAC  IV,  the  most  widely 
known  of  the  existing  parallel  processors,  is  call  an  array 
processor  because  it  -was  developed  to  process  a class  of 
algorithms  for  which  the  speed-up  ratios  are  enormous. 
Matrix  multiplication  is  an  example  of  an  operation  for 
which  large  speed-ups  are  possible,  and  it  is  included  among 
the  sample  programs.  In  order  to  gain  some  insignt  into  the 
results  expected  from  the  sample  programs,  the  remaining 
paragraphs  of  this  section  will  discuss  the  speed-ups 
possible  in  matrix  multiplication  and  summation  algorithms. 


D.  THS  2XAHPLE  OF  MATRIX  MU LT IP LICAI ION 


Multiplication  of  two  n x n matrices 
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3 

requires  n 


J 

1 

.,1 

i 


2 


multiplications  and  n (n-1)  additions.  When  performed 

3 2 

sequentially,  this  process  requires  n + n (n-1)  (or 
3 2 

2n  - n ) steps,  where  a step  is  one  addition  or  one 

3 

multiplication . Observe,  however,  that  all  of  the  n 

multiplications  are  independent  of  one  another  and  could  be 

3 

done  in  one  step  consisting  of  n simultaneous 

3 

multiplications  (assuming  there  were  n multipliers 
available) . 

2 2 

The  n (n-1)  additions  represent  the  n summations,  each 

of  n products  from  the  multiplications,  which  will  produce 

2 2 

the  n elements  of  the  product  matrix.  Certainly  the  n 

summations  are  independent  of  one  another  and  hence  could  be 
performed  in  parallel. 

Now  consider  the  summation  of  n elements.  Such  a 
summation  requires  n-1  additions.  Because  addition  is 

associative,  the  order  in  which  the  n-1  additions  are 
preformed  will  not  affect  the  outcome.  Because  addition  is 
a binary  operation,  the  summation  process  can  be  started  by 
simultaneously  adding  LP/^  pairs  of  addends.  ^ The 

summation  process  can  then  be  reapplied  to  the  rn/21 
remaining  elements.  This  procedure  will  still  require  a 
total  of  n-1  additions,  but  only  flog  n"!  steps  are  required 


3 For  a real  number  x, 

Tx"!  denotes  an  integer  such  that  x < Tx"!  < x + 1,  and 
|_xj  denotes  an  integer  such  that  x-1  < |_xj  < x. 
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(assuming  a minimum  of  {Ji/2J  adders  are  available  for  the 
first  step)  . 

Hence,  the  total  process  of  matrix  multiplication  of  two 
n X n matrices  could  be  performed  in  1 + flog^nl  steps.  Of 

3 

course,  such  a parallel  computation  would  reguirs  n 

2 

multipliers  for  step  1,  n ( Lii/2J ) adders  for  step  2,  and 

approximately  half  as  many  adders  for  each  successive  step. 

Consider  the  multiplication  of  two  8x8  matrices.  If  done 
sequentially,  this  process  would  require  960  steps.  If  done 
with  optimum  paralleling,  this  process  would  require  only  4 
steps!  Hence,  a speed-up  ratio  of  240  could  be  achieved  by 
512  parallel  multipliers  and  256  parallel  adders.  A LISP 
program  which  multiplies  two  4x4  matrices  is  included 
among  the  sample  programs  and  will  be  discussed  in  Section 
IV. 

S.  SPEED-UP  FOR  ASSOCIATIVE  PROCESSES 

There  is  a general  result  for  the  speed-up  possible  in  a 
process  composed  of  associative  sub-processes  such  as  the 
summation  process  just  discussed.  To  develop  this  result  it 
is  necessary  to  define  some  terms. 

As  used  herein,  the  term  "primitive"  (or  "primitive 
process")  refers  to  a member  of  the  set  of  operations  that 
can  be  performed  by  a processor.  A processor  is  an  agent 
(human  or  machine)  which  can  carry  out  a process.  The 

S 

process  may  be  just  a primitive,  or  it  may  be  a composition 


of  primitives.  In  the  eximple  of  multiplying  two  matrices, 
the  process  of  matrix  multiplication  was  composed  of  the 
primitives  for  scalar  multiplication  and  addition.  For  some 
processors,  multiplication  is  a process  composed  of  the 
primitives  shift  and  add. 

The  operands  for  primitives  may  be  referred  to  as  data 
elements.  A primitive  may  be  unary,  binary,  or  n-ary, 
meaning  that  it  processes  one,  two,  or  n data  elements  in 
one  processing  step.  The  physical  action  implied  by  the 
terms  primitive  process,  process,  and  data  elements  can  be 
described  abstractly  by  the  terms  initial  functions, 
functions,  and  set  elements. 

The  following  general  formula  represents  the  speed-up 
ratio  which  can  be  achieved  by  an  ideal  parallel  processing 
system^  for  a general  process  composed  of  associative, 
n-ary,  primitives  acting  on  a set  of  N data  elements. 

f(N-1)  / (n-1)1 

speed-up  ratio  = , n > 2 

Llog  NJ 
n 

The  numerator  represents  the  number  of  steps  required  for  a 
sequential  execution.  Each  sequential  step  would  reduce  the 
number  of  data  elements  remaining  by  n-1  until  n or  fewer 
elements  remained.  The  final  step  would  reduce  the  number 
of  elements  to  one.  The  denominator  represents  the  number 
of  steps  required  for  a parallel  execution.  At  each  step, 
successive  n-tuples  would  be  operated  upon  in  parallel. 
Brent  [Ref.  9]  provides  an  analysis  of  parallel  execution 
times  possible  for  arithmetic  expressions  in  general. 

F.  COMPARISON  OF  SUMMATION  ALGORITHMS 


♦ An  ideal  parallel  processing  svstem  is  one  that  has 
all  the  primitive  processors  it  will  ever  need. 


» 

f 
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Because  summation 
associative  additions 


IS 


a 


a process  composed  of  binary, 

speed-uo  ratio  of  (N-1)  / | log  N| 

2 


can  be  achieved  when  summing  N data  elements, 


T hree 


summation  algorithms,  one  serial  and  two  parallel,  are 
considered. 


The  following  program  segment  represents  a typical 

FORTRAN  subroutine  for  summing  a vector  of  integers. 

FUNCTION  SUM  (INIGRS,  N) 

DIMENSION  INTGRS  (N) 

ISUM  = 0 
DO  1 I = 1 , N 

1 ISUM  = ISUM  + INTGRS(I) 

RETURN 

This  serial  algorithm  actually  requires  N steps.  Since  the 
FORTRAN  DO  loop  will  be  processed  at  least  once,  it  is 
necessary  tc  allow  for  the  case  where  the  vector  contains 
only  one  integer. 


The  following  segment  from  Ref.  4 is  a parallel 

algorithm  for  the  summation  process  written  in  TRANQUILITY. 

BEGIN  INTEGER  ARRAY  A[0;255];  INTEGER  I,J,K,; 

FOR  (K)  SEQ  (0,...,7)  DO 
BEGIN 
J *■  2fK; 

FOR  (I>  SIM  (0,...,255)  DO 

A[I]  - A[I]  + A[  (I+J)  MOD  256  ] 


END: 


END; 


This  segment  is  designed  to  use  256  processor  elements  to 
sum  exactly  256  elements.  If  the  input  data  set  has  less 
than  256  elements,  the  remaining  elements  of  the  array  are 
given  zero  values.  If  there  are  more  than  256  elements  the 
extras  are  folded  across  the  256  processing  element 
memories,  and  each  processor  performs  a serial  summation 
before  the  above  segment  is  invoked.  Referring  to  the 
result  developed  in  sub-section  D,  the  number  of  steps 
required  for  the  parallel  summation  of  256  elements  is 
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log  256  or  8.  The  outer  FOR  loop  represents  this  sequence 
2 

(SEQ)  of  8 steps.  The  inner  FOR  loop  causes  the 
siffiutaneous  execution  (SIM)  of  the  ' + ' primitive  by  each 
processor  (0,...,255).  This  inner  loop  will  be  executed  a 
total  of  8 times  after  which  each  processing  element  will 
contain  the  final  sum. 


The  last  summation  algorithm  presented  here  is  in  the 
syntax  of  the  LISP  metalanguage. 


sum[a]  = [null[  cdr[  a 1 ] -•  carfa]; 

T -•  sum[  reduce[a  ] ] ] 

reducefa]  = fniillCa]  -•  NIL:  nullf  cdr[  a ] J -*  a; 

T cons[  addf  car[  a J ; cadrra]]; 
reduce[cddr[a  ]]]] 


The  variable  'a'  represents  a list  of  integers  to  be 
summed.  If  the  list  contains  two  or  more  integers,  the  sum 
function  calls  on  the  reduce  function.  The  reduce  function 
adds  successive  integer  pairs  and  returns  a reduced  list  of 
integers.  The  sum  function  is  then  applied  to  the  reduced 
list.  This  process  continues  until  the  list  contains  only 
one  integer  which  is  the  final  sum.  3y  computing  these 
arguments  in  parallel  the  above  algorithm  will  generate  the 
sum  of  N elements  in  flog  n1  addition  steps. 


Section  II  provides  some  background  information  on  data 
flow  graphs  and  LISP  programs.  This  information  is 
necessary  for  understanding  the  development  of  evalguote2 
discussed  in  Section  III.  Section  V proposes  a "skeletal" 
hardware  organization  for  implementing  the  parallel 
execution  described  by  evalguote2. 


I 


) 
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II. 


3AC^^(JND 


This  section  contains  background  information  necessary 
for  understanding  the  development  of  Evalguote2  in  Section 
III  and  the  test  programs  discussed  in  Section  IV.  Included 
is  a discussion  of  LISP  concepts  and  a modified  version  of 
the  LISP  metalanguage  syntax  which  is  used  for  the  programs 
in  this  thesis.  Data  flow  graphs  are  explained  as  a tool 
for  recognizing  parallelism,  and  the  g-vector  is  introduced 
as  a notational  device  for  describing  data  flow  graphs. 


A.  THE  LISP  LANGUAGE 


The  LISP  language  is  best  described  by  Section  I of  Ref. 
10.  An  overview  of  the  language  will  be  provided  here. 
Appendix  A contains  the  language  syntax  for  the  programs 
used  in  this  thesis.  Because  these  programs  were  run  on  a 
S/360  using  EBCDIC  characters,  the  notation  differs  slightly 
from  the  notation  published  in  Ref.  10. 

A LIS?  program  is  a LIS?  function  and  an  argument  list 
whose  elements  are  S-expressions  (symbolic  expressions).  An 
S-expression  can  be  one  symbol  called  an  atom,  or  it  can  he 
an  ordered  list  of  S-expressions  which  is  usually  delimited 
by  parentheses.  There  are  three  primitive  functions  used  to 
manipulate  S-expressions.  The  CAR  function  gives  the  first 
element  within  an  S-expression.  The  CDR  function  gives  the 
S-expression  remaining  after  removal  of  the  first  element. 
The  CONS  functions  takes  two  S-expressions  and  produces  a 
new  S-expression  by  inserting  the  first  3-expression  as  the 
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first  element  within  the  second  S-ex pression.  For  example, 
CAR<(A  B C)  > gives  A,  CDR^(A  B C)  > gives  (3  C)  , and 
CONS<A;  (B  C)  > gives  (ABC).  An  empty  list,  (),  is 

equivalent  to  the  atom  NIL. 

There  are  two  primitive  functions  which  are  predicates. 
EQ  gives  the  atom  T if  its  two  arguments  represent  the  same 
atom,  or  F otherwise.  ATOM  gives  the  atom  T if  its  argument 
is  an  atom,  or  F otherwise. 

The  version  of  LIS?  used  in  this  thesis  includes  the 
primitives  ADD  and  MOL  which  give  the  sum  and  product, 
respectively,  of  two  atoms  which  are  non-negative  integers. 

By  allowing  the  operations  of  composition  and  recursion, 
the  class  of  functions  definable  in  terms  of  the  primitive 
functions  can  be  expanded  to  the  set  of  partial  recursive 
functions  over  the  domain  of  S-expressions . McCarthy  [11] 
gives  a formal  development  of  the  class  of  functions 
computable  in  terms  of  given  base  functions.  Any  function 
belonging  to  the  class  of  computable  LISP  functions  can  be 
described  with  the  use  of  LAMBDA  and  LABEL  notations  and 
conditional  forms. 

These  notations  will  be  explained  in  terms  of  the  syntax 
of  Appendix  A.  Non-terminal  symbols  are  in  lower  case 
letters.  The  LABEL  notation  looks  like 
oKFN;  function>, 

where  ?N  is  the  name  assigned  to  the  function.  The  LABEL 
notation  allows  the  programmer  to  define  recursive 
functions.  The  LAMBDA  notation  looks  like 
S<< X ; . . . ; XN> ; form>, 

where  XI  through  XN  are  dummy  variables  used  within  the  form 
which  defines  the  function.  When  a LAMBDA  function  is 
applied  to  a set  of  S-expressions,  the  dummy  variables  are 
assigned  the  values  of  the  corresponding  S-expressions. 
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There  are  four  possibilities  for  a form.  It  may  be 
merely  a constant  or  a variable.  Or  it  may  be  another 
function  with  its  own  argument  list.  Or  lastly,  it  may  be  a 
conditional  form.  In  the  syntax  of  Appendix  A,  conditional 
forms  appear  as  a list  of  predicate-expression  pairs. 
Conditional  forms  are  evaluated  by  evaluating  successive 
predicates  until  one  of  them  evaluates  to  T.  The  value  of 
the  corresponding  expression  then  becomes  the  value  of  the 
entire  conditional  form. 

A more  general  notation  for  a conditional  form  is  (p  -i 
c,a),  where  p is  the  premise,  c is  the  conclusion,  and  a is 
the  alternative.  The  premise  is  a propositional  form  which 
evaluates  tc  a truth  value.  The  value  of  the  premise 
determines  whether  the  conclusion  or  the  alternative  will 
give  the  value  of  the  form.  The  conclusion  and  the 
alternative  may  themselves  be  conditional  forms.  Heference 
11  includes  a detailed  discussion  of  the  formal  properties 
of  conditional  forms. 


B.  FUNCTICNALS  AND  PROGBAN  ORGANIZATION 

As  defined  by  the  syntax  in  Appendix  A,  an  argument  can 
be  a form  or  a function.  Functions  which  accept  functions 
as  arguments  are  called  functionals.  The  best  known 
functional  in  LIS?  is  evalguote.  Evalquote  takes  as 
arguments  any  LISP  function  and  its  argument  list  and  gives  1 

the  result  of  the  function  applied  to  its  arguments,  i.  e.,  1 

SVALQUOTE<function;  (argument. . .argument) > 
is  equivalent  to 

function<argument ; . . . ; a rgument> . 

Reference  10  describes  evalquote.  Appendix  D contains  a 
program  listing  of  evalquote  in  the  syntax  of  Appendix  A. 
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The  concept  of  functionals  has  powerful  implications. 
One  of  the  features  of  functionals  is  that  they  enable  the 
programmer  to  achieve  the  same  economy  of  expression  and 
memory  space  that  is  achieved  in  other  programming  languages 
through  the  use  of  subroutines.  A function  can  be  defined 
once  as  an  argument  to  a LAMBDA  function.  The  function 
definition  is  then  paired  with  a variable  and  can  be  used 
repeatedly  in  the  defining  form  of  the  LAMBDA  function. 

The  sample  programs  presenred  in  this  thesis  make  use  of 
functionals  in  this  way.  The  general  organization  of  these 
programs  is  given  below.  Comments  are  enclosed  in  single 
quotes.  Non-terminal  symbols  are  in  lower  case  letters. 

5<< VAR  1 ; . . . ; 7 ARN> ; ’program  variables' 

6<<F1 ; . . . ; FM>;  'function  names' 

form>  'defining  form  for  the  program 

in  terms  of  VI  through  VN 
and  FI  through  FM' 

<'F1'  function;  'function  definitions' 

•F2'  function; 

•FM'  function>>  'end  of  program  function' 

<s-exp1  ;. . . ;s-ex?N>  'program  argument  list' 

# 'EOF  symbol' 

C.  DATA  FLOW  GRAPH 

A data  flow  graph  is  a graphical  description  of  the 
execution  of  a specific  program.  The  entities  depicted  by  a 
data  flow  graph  are  data  elements  and  primitive  processes. 

For  the  sample  data  flow  graphs  of  this  section,  the 
nodes  are  labeled  with  primitive  processes  and  the  edges  are 
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labeled  with  data  elements.  Figure  1 is  the  data  flow  graph 
for  the  FORTRAN  function  SUM  (from  Section  I)  where  the  data 
is  an  integer  vector  of  eight  1's.  Only  the  primitive  '+' 
is  used  in  the  graph.  Figure  2 is  the  data  flow  graph  for 
the  LISP  function  SUM  (also  from  Section  I)  applied  to  a 
list  of  eight  1's.  Again  only  the  primitive  'ADD'  is  used 
in  the  graph.  For  a specific  program  execution  the  data 
flow  graph  illustrates  the  execution  order  among  the 
primitive  processes,  specifically  describing  which  processes 
can  be  performed  simultaneously  and  which  must  be  performed 
in  sequence. 

In  graph  theory,  an  edge  is  usually  defined  by  the  two 
nodes  to  which  it  is  connected.  There  are  edges  in  the 
graphs  of  figures  1 and  2 which  are  connected  to  only  one 
node.  This  is  only  a superficial  discrepency  which  can  be 
corrected  by  viewing  the  data  elements  as  nodes  and  the 
primitive  processes  as  edges.  Figure  3 shows  this  dual  form 
for  the  graph  of  figure  2.  In  the  dual  form,  a binary 
primitive  process  is  represented  by  two  edges. 

In  graph  theory  a path  is  defined  as  any  sequence  of 
edges  in  which  each  successive  edge  originates  from  tne 
terminal  node  of  the  preceding  edge.  A data  flow  graph  is 
an  acyclic  directed  graph.  Tne  term  "directed"  means  that  a 
direction  is  associated  with  each  edge.  "Acyclic"  implies 
that  no  edges  are  repeated  in  any  path.  The  length  of  a 
path  is  defined  as  the  number  of  edges  in  the  path.  The 
length  of  the  longest  path  in  the  dual  form  of  a data  flow 
graph  represents  the  number  of  execution  stages  which  would 
be  required  in  a parallel  execution. 

The  width  of  a data  flow  graph  at  a particular  stage  of 
execution  is  defined  herein  as  the  number  of  primitive 
processes  to  be  executed  at  that  stage.  Renee,  the  maximum 
width  represents  the  minimum  number  of  processors  required 
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for  optimmn  parallel  exe::ution. 


Data  flow  graphs  should  not  be  confused  with  program 
graphs.  Program  graphs  represent  abstractions  of  flow 
charts  and  are  useful  in  the  analysis  of  algorithms.  They 
highlight  the  flow  of  control  without  regard  to  a particular 
data  set.  Program  graphs  are  usually  cyclic  digraphs. 

PAIRLIS  is  a LISP  function  which  pairs  together  elements 
of  two  S-ex pressions  and  appends  the  resulting  list  of  pairs 
to  an  existing  list.  PAIRLIS  is  used  by  evalquote  to  pair 
variables  with  their  corresponding  S-expression  values  and 
store  these  pairs  on  the  association  list.  Program  1 of 
Appendix  D is  PAIRLIS<(A  3)  ; (1  2);((C.3))>.  Figure  4 shows 
the  data  flow  graph  depicting  the  execution  of  this  program. 
This  graph  includes  all  the  primitives  used  in  PAIRLIS  and 
illustrates  the  order  in  which  they  are  executed.  Those 
primitives  which  line  up  vertically  may  be  executed  in 
parallel.  Otherwise,  the  primitives  are  executed  in  order 
from  left  to  right. 


D.  G-VECTOR 

A g-vector  (graph  vector)  is  a list  of  integers  which 
describes  a data  flow  graph  which  in  turn  describes  a 
program  execution.  The  general  form  of  a g-vector  is 

(w  w ...  w ).  The  number  of  elements  in  the  vector,  n, 
1 2 n 

represents  the  maximum  path  length  of  the  data  flow  graph 

which  is  the  minimum  number  of  steps  (or  stages)  required 

for  the  entire  computation.  Bach  element,  w , cf  the 

i 

g-vector  represents  the  width  of  the  data  flow  graph  (or  the 
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minimum  number  of  machine  level  processors  required  for 
optimum  paralleling)  at  step  i in  the  computation.  The  sum 
of  the  elements  in  the  g-vector  represents  the  total  number 
of  primitive  processes  performed  in  the  computation. 

Each  data  element  in  the  data  flow  graph  describing  the 
execution  of  a LISP  program  has  associated  with  it  a 
g-vector.  The  g-vector  describes  a sub-graph  that 
represents  the  computations  performed  to  produce  the  data 
element.  The  g-vector  may  be  empty  as  is  the  case  with 
constants. 


There  are  two  binary  operations  which  can  be  performed 
on  a pair  of  g-vectors.  A g-vector  may  be  appended  to 
another  g-vector  to  produce  a longer  resultant  g-vector. 
The  resultant  g-vector  represents  the  data  flow  graph  for 
two  processes  which  were  performed  in  sequence.  A g-vector 
may  be  combined  with  another  g-vector  by  summing  their 
corresponding  elements.  The  resultant  "wider"  g-vector 
represents  the  data  flow  graph  for  two  processes  which  were 
performed  in  parallel.  The  g-vector  for  the  data  flow  graph 
of  figure  4 is  (1  4 2 4 2 1 1)  . 
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III.  EVAL^UQTE2 


Evalguote2  is  a LIS?  function  similar  to  Evalguote.  For 
input,  evalguote2  takes  two  S-expressions.  The  first 
S-expression  represents  any  LISP  function,  and  the  second 
S-expression  represents  a valid  argument  list  for  that 
function.  As  with  all  LISP  programs,  the  output  from 
avalquote2  is  a single  S-expression.  The  CAS  of  this 
S-expression  represents  the  result  of  the  input  function 
applied  to  the  input  argument  list.  The  CDR  of  the  output 
S-expression  is  the  g-vector  (a  list  of  integers)  describing 
the  data  flow  graph  resulting  from  the  application  of  the 
input  function  to  the  input  argument  list.  Appendix  3 is  a 
listing  of  evalguote2  applied  to  the  PAIRLIS  function  of 
Figure  4. 

The  sub-functions  used  to  define  evalguote2  are  similar 
to  the  sub-functions  used  to  define  evalguote  along  with 
some  additional  functions  used  to  compute  the  g-vsctor. 
These  sub- functions  will  be  discussed  shortly,  but  first 
will  be  a discussion  of  the  logic  used  by  evalguote2  to 
compute  the  g-vector. 

A.  LOGICAL  DEVELOPMENT 

The  arguments  for  a function  are  independent  of  one 
another  and  may  be  evaluated  simultaneously  (in  parallel). 
The  evaluation  of  each  argument  produces  a resultant 
S-expression  and  g-vector.  When  an  argument  is  a function 
with  its  own  argument  list,  the  g-vector  associated  with  the 
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resultant  data  element  describes  the  data  flow  graph 
determined  by  the  application  of  the  function  to  its 
argument  list. 


When  all  of  the  arguments  have  been  evaluated,  their 
associated  g-vectors  are  combined  to  produce  a single 
g-vector.  The  g-vectors  are  combined  by  summing  their 
corresponding  elements.  The  resultant  g-vector  describes 
the  data  flow  graph  which  describes  the  parallel  evaluation 
of  the  arguments.  The  length  of  the  resultant  g-vector  will 
be  egual  to  the  length  of  the  longest  g-vector  created  in 
the  evaluation  of  the  argument  list.  Each  element  of  the 
resultant  g-vector  represents  the  number  of  primitive 
functions  that  were  executed  at  that  stage  in  the  parallel 
evaluation  of  the  argument  list. 

When  all  the  arguments  have  been  evaluated,  the  function 
can  be  applied.  The  application  of  the  function  to  the 
evaluated  argument  list  is  described  by  a new  data  flow 
graph.  The  g-vector  for  this  graph  is  appended  to  the 
g-vector  for  the  combined  argument  list  to  produce  a longer 
g-vector.  This  longer  g-vector  describes  the  total  data 
flow  graph  which  represents  the  evaluation  of  both  the 
function  and  its  argument  list. 

When  the  defining  form  for  a function  is  a conditional, 
the  g-vector  must  be  computed  in  a way  which  describes  the 
evaluation  cf  a conditional  form.  As  discussed  previously, 
the  general  form  for  a conditional  is  (p  -•  c,a).  The 
possibility  of  parallel  evaluation  of  p,  c,  and  a will  be 
discussed  later.  Normally  p (the  predicate)  is  evaluated 
first  and  then  c (the  conclusion)  or  a (the  alternative)  is 
evaluated  next  depending  on  the  value  of  p.  Hence,  the 
g-vector  for  p is  computed  first,  and  then  the  g-vectcr  for 
c or  a is  appended.  The  resultant  g-vector  describes  the 
sequential  evaluation  that  has  occurred. 
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[ B.  SUB- FUNCTIONS 

I 

j In  order  to  more  easily  understand  the  following 

explanations  of  the  sub- functions  used  in  evalquote2,  it  may 
be  helpful  to  scan  Appendix  B before  proceeding. 

IApply2  computes  the  g-vector  describing  the  application 

of  a function  to  its  arguments.  The  parameters  for  apply2 
are  similar  to  those  for  apply  except  that  the  second 
parameter  represents  both  the  argument  list  and  the  combined 
t g-vector  describing  the  parallel  evaluation  of  the 

I arguments.  Notice  that  when  apply2  is  first  called  by 

[ evalquote2,  the  g-vector  for  the  argument  list  is  empty. 

[ This  is  because  the  initial  arguments  are  all  S-expressions 

I and  need  no  evaluation.  If  the  function  is  a primitive, 

> then  the  g-vector  describing  the  application  is  (1)  . 

Therefore,  (1)  is  appended  to  the  existing  g-vector  and  this 
new  g-vector  is  associated  with  the  resultant  data  element. 

► 

[ 

^ If  the  function  is  a lambda  or  label  expression,  or  a 

^ previously  defined  function,  then  the  defining  form  will  be 

I evaluated  by  eval2.  Eval2  will  return  a data  element 

I associated  with  a g-vector  describing  the  evaluation.  The 

I sub-function  compose  is  rhen  used  to  append  the  g-vector 

‘ returned  by  eval2  with  the  g-vector  that  came  with  the 

1 argument  list. 

i Eval2  is  similar  to  eval  in  that  it  evaluates  forms. 

The  difference  is  that  eval2  associates  a g-vector  with  an 
s-expression  (resultant  data  element)  for  each  evaluation. 
If  the  form  is  a variable  ot  a constant  the  g-vector  is 
empty.  If  the  form  is  a conditional  then  evcon2  is  called. 
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Evcon2  is  similar  to  evcon  except  that  it  also  returns  a 
g-vector  describing  the  evaluation  of  the  conditional. 
Evcon2  evaluates  the  first  predicate  and  calls  on  graphcon. 
If  the  predicate  is  true,  graphcon  evaluates  the 
corresponding  expression  and  calls  compose.  Compose  appends 
the  g-vector  f^or  the  expression  to  the  g-vector  for  the 
predicate  and  associates  the  resultant  g-vector  with  the 
resultant  data  element.  If  the  predicate  is  false,  graphcon 
calls  compose  with  the  result  of  evcon2  applied  to  the 
remainder  of  the  conditional  and  the  g-vector  of  the  first 
predicate . 

If  the  form  given  to  eval2  is  a function  with  its 
argument  list,  the  argument  list  is  given  to  evlis2  for 
evaluation.  Evlis2  is  similar  to  evlis  in  that  it  evaluates 
arguments,  but  it  also  combines  the  g-vectors  of  evaluated 
arguments  to  produce  a resultant  g-vector  describing  the 
parallel  evaluation  of  the  arguments. 

The  sub-function  compose  is  used  to  compute  g-vectors 
resulting  from  the  composition  of  functions.  Composition  of 
functions  describes  computational  processes  which  must 
naturally  occur  in  seguence.  Compose  is  called  from  apply2 
and  graphcon.  Append  is  a standard  LISP  function  used  to 
create  a new  list  of  the  top  level  elements  of  two  input 
lists.  Append  is  called  from  a?ply2  and  compose.  Combine 
is  used  to  compute  g-vectors  representing  the  parallel 
evaluation  of  arguments.  Combine  is  called  from  evlis2. 
Sum  is  used  by  combine  for  adding  corresponding  elements  of 
two  g-vectors.  The  remaining  sub-functions  are  identical  to 
sub-functions  used  in  evalguote. 
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IV. 


RESULTS  OF  EVALi2UOTE2  IMPLEMENTATION 


Evalquote2  has  been  impleiaeated  through  an  interpreter 
program  written  in  Algol-W.  This  section  documents  the 
interpreter  which  has  been  compiled  to  run  on  a S/360.  Also 
discussed  are  the  sample  LISP  programs  which  were  run  under 
the  interpreter  and  their  results. 

A.  THE  ALGOL-W  INTE3P5ETER 

Appendix  E contains  a source  listing  for  the 
Interpreter.  Functionally,  the  interpreter  is  nearly 
identical  to  evalguote2.  That  is,  it  produces  the  result  of 
a LISP  function  applied  to  its  arguments  along  with  the 
associated  g-vector.  The  following  paragraphs  summarize  the 
organization  of  the  Interpreter. 

1 . Input 

For  input,  the  Interpreter  accepts  programs  written 
in  the  metalanguage  syntax  of  Appendix  A.  Input  is  expected 
from  80-character  records  and  can  be  written  free-form 
(column  independent). 

If  the  first  character  of  a record  is  a the 
second  character  represents  a toggle  and  causes  a logical 
variable  to  be  reset.  The  remainder  of  the  record  is 
ignored  and  may  be  used  to  comment  on  the  reason  for  the 
toggle.  If  the  toggle  is  a 'S',  it  causes  the  toggle 
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records  to  be  listed  until  the  next  '$$'  record  is 


encountered.  '$L'  resets  the  LISTING  variable  which  is 
turned  on  initially.  'ST'  resets  the  TRANS  variable  which 
is  turned  off  initially.  When  on,  TRANS  causes  the 
S-expression  translations  of  the  input  function  and  argument 
list  to  he  printed  on  the  output  device.  'SA'  causes  only 
the  arithmetic  operators  (ADD  and  MUL)  to  be  included  in  the 
computation  of  the  g-vector. 

If  the  first  character  of  a record  is  a the 
entire  record  is  considered  a comment.  Single  guotes  are 
used  to  delimit  in-line  comments. 

2 • Translation 

The  SCANNER  routine  reads  tokens  (identifiers, 
constants,  numbers,  and  specials)  from  the  input  stream. 
The  translation  routines  change  the  program  into  two 
S-expressions  (one  for  the  function  and  one  for  the  argument 
list)  and  store  them  in  memory  in  the  form  of  linked  lists. 
The  translation  routines  function  in  accordance  with  the 
translation  rules  of  Appendix  C.  These  translation  rules 
were  derived  from  the  rules  for  translating  M-ex?ressions  to 
S-expressions  presented  in  Ref.  10. 

^ • Interpretation 

Because  Algoi-»  supports  recursion,  the 
interpretation  routines  are  nearly  identical  to  evalguote2 
which  was  explained  in  the  previous  section.  The  evalguote2 
procedure  within  the  Interpreter  may  be  viewed  as  a 
microprogram  in  a hypothetical  LISP  machine.  The  machine's 
memory  already  contains  an  S-expression  for  a function  and 
an  S-expression  for  an  argument  list.  The  machine  generates 
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a resultant  S-expression  containing  the  program  result  and 
the  g-vector. 


4 . Output 

The  output  from  the  Interpreter  includes  the 
resultant  S-expression  containing  rhe  program  result  and 
g-vector  and  also  a summary  of  the  information  contained  in 
the  g-vector.  The  summary  includes  the  number  of  processing 
elements  required  for  a parallel  execution,  tne  number  of 
execution  steps  required  for  both  a sequential  and  a 
parallel  execution,  and  the  speed-up  ratio.  Additional 
output  from  the  Interpreter  includes  diagnostic  error 
messages  for  the  more  common  syntactic  and  semantic  errors. 

B.  SAMPLE  PECGF.AMS 

Appendix  D contains  the  sample  LISP  programs  which  were 
run  under  the  interpreter.  Program  1 is  the  PAI3LIS 
function  with  the  same  arguments  used  to  generate  the  data 
f] tw  graph  of  Figure  4.  Program  1 is  included  to  illustrate 
the  output  from  the  Interpreter.  The  output  includes  the 
program  listing  followed  by  the  3-expression  translations  of 
the  function  and  argument  list  (enabled  by  the  $T  toggle) . 
The  CDR  of  the  resultant  S-expression  can  be  compared  with 
the  data  flow  graph  of  Figure  4. 

’’  • Multiplication 

Programs  2 through  5 represent  matrix  multiplication 
of  two  4x4  matrices  in  which  all  the  elements  are  1's. 
Hence,  the  resulting  product  matrix  is  a 4 x 4 of  all  4's. 
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The  S-expression  representation  for  the  first  factor  is  in 
row  major  order  while  the  second  factor  is  in  column  major 
order . 


Programs  2 and  3 use  the  same  algorithm  to  compute 
the  matrix  product.  Program  3 uses  the  £A  toggle  to  include 
only  arithmetic  operations  in  the  computation  of  the 

g-vector.  The  MATMUL  function  computes  the  rows  of  the 
product  matrix  by  calling  the  row  function.  The  row 

function  computes  the  elements  of  each  row  by  calling  the 
dot  function.  The  dot  function  computes  the  dot  product  of 
each  row  of  the  first  factor  with  each  column  of  the  second 
factor.  The  dot  function  is  defined  so  as  to  sequentially 
add  the  integer  products  of  vector  elements.  As  discussed 
in  Section  I,  this  is  not  the  optimum  way  to  define  an 
associative  process  for  a parallel  processor. 

Programs  4 and  5 use  the  sum  function  presented  in 
Section  I to  optimize  the  summation  required  for  each  dot 
product.  The  g-vector  computed  for  program  5 considers 
arithmetic  operations  only.  Note  that  the  results  for 
program  5 correspond  to  the  theoretic  results  discussed  in 
Section  I.  That  is,  the  number  of  required  sequential  steps 
3 2 

is  2n  -n  , or  112  for  n=4 . The  number  of  parallel  steps  is 
1 + flog^nl  or  3 for  n = 4 . Because  program  3 performs 

additions  sequentially,  it  requires  one  more  parallel  step 
than  program  5. 

The  speed-up  ratios  computed  for  programs  4 and  5 
might  be  considered  as  lower  and  upper  bounds,  respectively, 
for  an  actual  speed-up  ratio  (one  that  compares  an  actual 
parallel  machine  with  an  actual  sequential  machine) . 
Program  5 ignores  the  data  accesses  represented  by  CAR,  CDR, 


and  CONS  operations  and  also  execution  controls  represented 
by  the  EQ  operation.  Obviously,  the  data  must  be  moved  into 
position  in  order  to  be  operated  upon,  even  if  the  movement 
of  data  takes  place  in  parallel.  Program  4 computes  the 
speed-up  ratio  by  giving  the  same  weight  to  CAR,  CDH,  CONS, 
and  SQ  as  it  gives  to  ADD  and  MUL.  This  is  not  necessarily 
a correct  assumption  either,  since  data  can  normally  be 
accessed  from  a high-speed  memory  fasrer  than  the  arithmetic 
operations  can  be  performed. 

2 • Symbolic  Differentiation 

Programs  6 and  7 represent  the  symbolic 

4 

differentiation  of  a fourth  degree  binomial,  (x  + y)  , with 

respect  to  x.  The  function  consists  of  two  primary 

sub-functions.  DIFF  computes  the  derivative  by  the  rules 
for  differentiating  algebraic  expressions.  SIMP  simplifies 
the  result  by  eliminating  factors  of  "1"  and  addends  of  "0." 

For  program  6 the  S-expression  representation  of 
4 

(X  + y)  is 

(((X  + y)  * (X  + y))  * ((X  + y)  * (x  + y)  ) ) . 

In  this  expression  the  data  is  arranged  symmetrically.  Jor 
program  7 the  data  is  arranged  asymmetrically  and  looks  like 
((X  + y)  * ((X  +y)  <■  ((x  + y)  * (X  + y) ) ) ) . 

As  expected  the  speed-up  ratio  is  greater  for  program  6 
(5.2)  than  for  program  7 (4.1).  This  comparison  was  made  to 

provide  an  example  in  wnich  symmetrically  organized  data 
caused  a greater  speed-up  ratio  than  the  same  data  organized 
asymmetrically. 
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3 • Evalquote 


Program  8 is  the  universal  function  evalquote.  The 
arguments  for  evalquote  are  the  S-expression  translations 
from  program  1.  The  speed-up  ratio  for  program  8 is  1.86. 
This  is  the  smallest  speed-up  ratio  of  all  the  sample 
programs.  Additional  runs  were  made  with  this  program  in 
which  the  PAI8LIS  function  paired  lists  of  three  elements 
each  and  lists  of  four  elements  each.  Each  run  produced 
essentially  the  same  speed-up  ratio  (1 .86) . 


For  the  matrix 

multiplication  examples. 
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V. 


HARD  MARI  CONSIDERATIONS 


The  probleiE  addressed  in  this  section  is  how  to  design  a 
hardware  system  which  will  implement  the  parallel  execution 
of  algorithms  which  are  defined  by  a software  system  such  as 
"pure"  LISP.  A detailed  hardware  design  will  not  be  given. 
Rather,  a "skeletal"  design  for  the  hardware  will  be 
presented  at  a functional  level  in  order  to  bring  our  some 
of  the  considerations  involved  in  any  design. 


Before  proceeding  with  the  example  design,  some 
clarification  of  terminology  will  be  given.  A parallel 
processing  system  refers  to  both  the  software  and  hardware 
portions  of  a complete  system.  A parallel  processing 
machine  (or  computer)  refers  to  the  hardware  alone, 
including  at  least  memory  and  processors.  A parallel 
processing  system  might  include  one  or  more  parallel 
processing  machines.  The  processor  module  refers  to  the 
module  within  a machine  which  contains  the  processing 
elements.  A processing  element  refers  to  a single 
processor . 


A parallel  processing  machine  must  perform  a function 
similar  to  evalquote2.  That  is,  it  must  evaluate  a LIS? 
function  applied  to  its  arguments  and  in  the  process 
recognize  parallelism.  The  data  for  this  machine,  both 
functions  and  operands,  is  in  the  form  of  ordered  sets 
(parenthetical  expressions)  . This  data  can  be  stored  in  a 
sequentially  organized  -.emory  in  the  form  of  linked  lists. 


A.  PROCESSOR  MODULE 


38 


i 

■1 

i 

s 

1 


r 1 


Ideally,  the  processor  module  would  be  constructed  on  a 
single  chip.  Figure  5 is  a modular  diagram  of  a processor 
module.  Each  processing  element  in  the  module  represents  a 
hardware  implementation  of  evalquote.  There  are  three 
inputs  to  a processing  element.  The  first  input  is  a memory 
address  for  a program  or  a form  as  defined  by  the 
metalanguage  syntax.  The  second  input  is  a device  address 
for  returning  the  result  to  be  computed.  The  third  input  is 
the  memory  address  of  the  applicable  association  list.  The 
outputs  from  a processing  element  are  the  result  of  the 
function  applied  to  its  arguments  and  the  address  of  the 
device  for  which  this  result  is  destined. 

^ • lil®  E£2c§s sor  Mana  ger 

The  processor  manager  controls  data  transfers 
between  the  processing  elements.  The  processor  manager  also 
keeps  track  of  the  status  (busy  or  free)  of  each  processing 
element.  Initially,  a LIS?  program  (a  list  containing  a 
function  and  constant  arguments)  is  made  available  to  a 
processor  module  from  an  external  agent  such  as  a terminal 
user  or  another  parallel  processing  machine.  After  the 
program  is  read  into  memory,  the  processor  manager  assigns 
the  program  to  a processing  element  along  with  a return 
address  to  an  external  device  (terminal,  printer,  external 
storage,  or  another  parallel  processing  machine) . As  the 
processing  element  recognizes  processes  which  can  be 
computed  in  parallel  these  processes  are  made  available  to 
the  processor  manager  for  assignment  to  other  available 
processing  elements.  The  return  address  for  these  processes 
will  be  the  processing  element  that  originated  them.  Wnen 
all  processing  elements  are  busy  the  processor  manager  will 
queue  waiting  processes. 
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2. 


The  Memory  Manager 

The  memory  manager  controls  the  common  memory. 
Between  programs,  the  memory  manager  converts  memory  into  a 
single  list  of  free  storage  cells.  This  list  is  male 
available  for  reading  a new  program  into  memory.  Once 
execution  has  begun,  the  memory  manager  provides  free 
storage  cells  to  each  processing  element  for  use  in 
performing  the  CCN3  primitive.  Garbage  collection  is 
performed  by  monitoring  the  association- list  stack  in  each 
processing  element  and  returning  links  from  outdated  lists 
to  the  free  storage  list. 

3 . Timing 


Ey  constructing  the  processor  module  on  a single 
chip  it  can  be  controlled  by  a single  timer.  Two  basic 
clock  cycles,  a compute  cycle  and  a transfer  cycle,  are 
required . 

The  compute  cycle  enables  all  the  processing 
elements  to  perform  a computation  if  they  have  one  to 
perform.  Also  during  this  cycle,  the  processor  manager's 
list  of  available  processors  is  updated  via  the  status  flags 
on  each  of  the  processing  elements.  During  the  compute 
cycle  the  memory  manager  can  perform  garbage  collection  or 
issue  free  storage  cells. 


During  the  transfer  cycle  the  processor  manager 
performs  a linear  sweep  cf  the  processing  element  output 
ports.  As  an  output  port  with  data  to  be  transferred  is 
swept,  the  destination  (indicated  by  the  return  address)  is 
enabled  and  the  data  transferred.  One  entire  sweep  is 


B.  A PROCESSING  ELEMENT 

Figure  6 is  a modular  diagram  of  a single  processing 
element.  The  purpose  of  a processing  element  is  to  accept, 
as  input,  a form,  as  defined  by  the  metalanguage  systax,  and 
to  produce,  as  output,  the  evaluated  result  of  the  form. 
The  actions  of  the  processing  element  are  controlled  by  the 
decode-and-ccntrol  module  (DCM) . The  DCM  contains  the 
microprograms  for  all  the  primitive  functions  (CAR,  CDR, 
CONS,  ADD,  etc.).  The  DCM  also  manages  four  pushdown  stacks 
which  are  reguired  for  evaluating  complex  forms.  The  DCM 
also  controls  the  processing  element  status  register  and  the 
I/O  to  the  processor  transfer  bus  and  the  memory  bus. 
Figure  7 is  a functional  flow  chart  describing  the  tasks 
performed  by  the  DCM. 

The  inputs  to  a processing  element  are  provided  by  the 
processor  manager  or  by  tne  processing  element's  own  DCM. 
The  first  input  is  the  address  of  a form  and  goes  into  rhe 
program  register.  The  second  input  is  the  address  of  the 
association  list  for  the  fora.  If  the  form  is  an  original 
program  (function  and  constant  arguments)  from  an  external 
device,  then  the  association  list  will  be  empty.  The 
incoming  return  address  register  receives  the  address  of  the 
device  to  which  the  result  will  be  sent. 

C.  DECODE  AND  CONTROL  MODULE 
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Figure  6.  Processing  Element 
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The  DCM  is  designed  to  implement  the  overall  policy  of 
the  parallel  processing  system.  That  policy  is  to  perform 
sequential  processes  in  sequence  and  to  enable  parallel 
processes  to  be  performed  in  parallel.  Hence,  if  the  form 
that  is  input  to  the  program  register  is  a function  and  a 
set  of  unevaluated  arguments,  then  the  DCM  will  stack  the 
function  on  the  function  pushdown,  input  one  of  the 
arguments  to  its  own  processing  element,  and  send  the 
remaining  arguments  to  the  processor  manager  for  parallel 
evaluation  by  other  available  processing  elements.  When  all 
the  arguments  have  been  evaluated  and  returned  to  the  forms 
pushdown,  the  DCM  will  pop  the  function  into  the  current 
function  register.  If  the  function  is  a primitive,  it  is 
decoded  by  the  DCM  and  applied  to  the  arguments.  If  the 
function  is  a lambda  expression,  the  DCM  creates  a new 
association  list  in  memory  by  pairing  the  variables  of  the 
lambda  expression  with  the  evaluated  arguments  on  the 
pushdown.  The  DCM  then  inputs  to  the  program  register  the 
remainder  of  the  lambda  expression  which  is  a form  defining 
the  function. 

If  the  form  is  a conditional,  the  reserved  word  COND  is 
stored  on  the  function  pushdown.  The  list  address  for  the 
second  and  successive  predicate-expression  pairs,  the  list 
address  for  the  first  expression,  and  the  list  address  for 
t,he  first  predicate  are  stored  in  that  order  on  the  forms 
pushdown.  Those  three  forms  represent  the  predicate,  the 
conclusion,  and  the  alternative,  respectively,  for  a 
generalized  conditional  expression.  it  is  input  to  the 
processing  element  for  evaluation.  If  the  predicate  is  not 
a constant.  If  the  predicate  evaluates  to  true,  the 
conclusion,  which  is  next  on  the  forms  pushdown,  is 
evaluated,  the  alternative  is  discarded,  and  the  COND  is 
popped  off  the  function  stack.  If  the  predicate  evaluates 
to  false,  the  COND  is  left  on  the  function  stack,  the 
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conclusion  is  discarded,  and  the  alternative  conditional 
expression  is  input  to  the  processing  element  for 
e valuati on. 

When  the  form  input  to  a processing  element  is  a 
variable,  the  DCM  uses  the  accompanying  association  list  to 
search  for  the  corresponding  constant  value. 


VI.  ADDITIONAL  PARALLEL  PROCESSING  CONSIDERATIONS 


There  remain  several  areas  within  the  realm  of  parallel 
processing  of  recursive  functions  which  need  further 
research.  Three  of  these  areas  will  be  discussed  in  this 
section . 

A.  PARALLEL  PROCESSING  OF  CONDITIONAL  FORMS 

Parallel  processing  of  a conditional  form  means  that 
evaluations  of  the  predicate,  conclusion,  and  alternative 
are  begun  in  parallel.  If  any  of  these  forms  are  themselves 
conditionals,  or  contain  conditionals,  then  they  too  are 
processed  in  parallel.  When  the  predicate  evaluates  to  true 
(or  false) , all  processing  generated  by  the  alternative  (or 
conclusion)  is  halted,  and  any  storage  allocated  for  the 
evaluation  cf  the  alternative  (or  conclusion)  is  reclaimed. 

One  of  the  problems  with  parallel  processing  of 
conditional  forms  is  that  it  is  wasteful  of  memory.  It 
might  happen  that  parallel  processing  of  a conditional  form 
would  exhaust  memory  before  completion,  whereas  normal 
processing  could  complete  within  available  memory.  Problems 
associated  with  limited  memory  sizes,  however,  can  be 
expected  to  lessen  as  advances  in  memory  technologies 
continue  to  push  cost  down  and  volume  up. 

Another  problem  with  parallel  processing  of  conditional 
forms  concerns  undefined  forms.  A conditional  form  is 
considered  defined  if:  1)  the  predicate  is  defined;  and  2) 
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the  conclusion  is  defined  if  the  predicate  is  true,  or  the 
alternative  is  defined  if  the  predicate  is  false.  Hence,  a 
well-defined  conditional  form  may  have  either  an  undefined 
conclusion  or  an  undefined  alternative,  but  not  both.  A 
system  which  processes  conditional  forms  in  parallel  must  be 
prepared  to  deal  with  undefined  forms.  Some  undefined  forms 
are  recognizable  while  others  are  not.  For  example,  if  X is 
an  atom,  then  CAR<X>  can  be  recognized  as  undefined. 
Analysis  of  the  halting  problem  has  shown  that  some 
undefined  forms  {e.g.,  some  which  recur  infinitely)  may  not 
be  recognizable. 


Assuming  that  a parallel  processing  system  has 
sufficient  resources  (memory  and  processors) , it  may  still 
be  possible  to  process  conditional  forms  in  parallel.  For 
example,  assume  the  alternative  is  undefined.  As  soon  as 
the  predicate  evaluates  to  true,  processing  could  be  stopped 
on  the  alternative.  This  may  be  a difficult  and 
time-consuming  task,  however,  since  the  alternative  process 
may  have  tied  up  an  intricate  net  of  processing  elements. 

Because  there  are  so  many  unanswered  questions 
concerning  parallel  processing  of  conditional  forms, 
cvaiquote2  was  designed  to  graph  conditionals  in  the 
traditional  way. 


a.  THE  MEANING. OF  SPEED-JP  RATIOS 

In  the  dual  form  of  the  data  flow  graph  (the  one  where 
the  nodes  represent  data  elements  and  the  edges  represent 
primitive  operations),  the  speed-up  ratio  can  be  defined  as 
the  number  of  nodes  with  indegree  greater  than  zero  divided 
by  the  maximum  path  length.  This  definition  presupposes  an 
unweighted  graph  which  is  probaoly  not  true  for  any  actual 
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inplementation.  For  example,  the  procedures  for  ADD  and  dUL 
in  the  Interpreter  are  much  more  complex  than  the  procedures 
for  CAR  and  CDR.  This  was  the  primary  reason  for  the 
Interpreter's  $A  toggle  which  causes  only  the  arithmetic 
primitives  to  be  graphed.  It  is  not  inconcei vable  to 
imagine  a parallel  machine  which  has  a "smart,"  associative 
memory  that  performs  the  CAR  and  CDR  functions 
automatically,  thus  eliminating  them  from  the  data  flow 
graph  altogether. 

In  a machine  where  each  instruction  (primitive)  requires 
several  timer  states  to  complete,  the  data  flow  through  the 
primitive  processes  can  be  described  by  a weighted  graph. 

The  weight  assigned  to  each  primitive  represents  the  number 
of  timer  states  required  for  that  primitive.  There  is  still 
the  problem  of  coordinating  data  transfers  between 
processing  elements  which  implies  a need  for 
synchronization.  Each  stage  in  the  parallel  execution  could 
be  rimed  to  allow  for  the  longest  possible  instruction. 

This  would  be  analogous  to  the  unweighted  graph.  Or  each 
stage  could  be  timed  to  the  longest  instruction  in  the 
stage.  This  could  be  implemented  by  each  processing  element 
setting  a ready  line  at  instruction  completion.  The 
processor  manager  would  begin  data  transfers  when  all  the 
ready  lines  were  set.  A third  alternative  is  to  let  each 
processing  element  execute  sequentially  until  there  is  data 
to  be  transferred  (a  completed  rusult  or  arguments  to  be 
computed  in  parallel) , and  then  to  set  a transfer  ready 
line.  The  processor  manager  would  continuously  monitor  the 
transfer  ready  lines.  When  a line  goes  true,  the  processor  j 

pi 

manager  would  interrupt  the  destination  and  enable  the  | 

transfer . 

C.  THE  WIDTH  COMPUTATION 


The  width  at  each  s 
defined  rather  loosely  as 
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primitives  representing 
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Consider  once  more 
only  three  processors 
be  possible  to  delay  t 
first  CONS  operation 
seven  parallel  steps, 
one  stage  would  caus 
increase  from  4 to  5. 
further  delaying  this 

If  the  first  CDR  o 
would  obviously  cause 
stages  required  for  co 
to  be  delayed  be  reco 
some  "look-ahead”  capa 
system  of  the  previous 
may  be  possible  to  ado 
processes  to  be  dela 
the  four  processes  at 
arguments  for  a CONS 
invocation  of  the  PAl 
subsequent  CONS  repre 


the  data  flow  graph  of  figure  4.  If 
were  available  at  stage  two,  it  mignt 
he  first  CAR  operation,  and  hence  the 
, and  still  complete  the  execution  in 
Delaying  the  first  CONS  operation  by 
e the  width  of  the  graph  at  stage  4 to 
This  increase  could  be  avoided  by 
CONS  operation  one  or  two  more  stages. 

per at ion  at  stage  2 were  delayed,  it 
an  increase  in  the  number  of  parallel 
mpletion.  How  can  the  proper  process 
gnized?  This  would  apparently  require 
bility  not  included  in  the  parallel 
section.  Without  "looking  ahead,"  it 
pt  a strategy  which  causes  rhe  "righr" 
yed  most  of  the  time.  For  example,  of 
stage  2 in  Figure  4,  two  produce 
and  two  produce  arguments  for  the  next 
RLI3  function.  The  two  CAR's  and 
sent  a known  number  of  required  srages 
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(2),  whereas  the  PAIRLIS  function  is  recursive  and  the 
number  of  stages  required  will  depend  on  the  data. 

Hence,  one  strategy  might  be  to  "tag"  recursive 
functions,  and  when  insufficient  processors  are  available, 
to  delay  non-recursive  functions  before  delaying  recursive 
funct ions . 

Another  strategy  that  might  be  used  to  execute  the 
program  in  a minimum  number  of  stages  with  a limited  number 
of  processors  requires  a modification  to  the  method  of 
evaluation  used  by  evalquote2  (and  also  evalguote) . These 
universal  functions  evaluate  another  function  and  its 
arguments  by  first  evaluating  all  the  arguments  and  then 
applying  the  function.  There  are  cases  where  some  work  can 
be  done  in  applying  the  function  before  all  of  the  arguments 
are  evaluated.  The  PAIRLIS  function  of  Figure  4 again 
serves  as  an  example.  From  the  data  flow  graph  it  can  be 
seen  that  the  second  CDR  of  stage  2 (as  well  as  the  second 
CDR  of  stage  h)  could  be  delayed  one  stage  without  affecting 
the  total  number  of  stages  required.  To  do  this  would  mean 
commencing  the  second  (and  third)  invocations  of  PAIRLIS 
before  all  the  arguments  were  evaluated.  In  other  words,  as 
soon  as  the  first  argument  was  evaluated,  it  would  enable 
the  first  predicate,  which  only  requires  the  first  argument, 
to  be  executed. 

The  goal  of  the  two  strategies  mentioned  so  far  is  to 
allow  a reduced  set  of  processors  to  still  perform  the 
program  execution  in  a minimum  number  of  stages.  These  two 
strategies  as  well  as  the  goal  they  are  seeking  represent  an 
area  for  further  research  in  the  design  of  a parallel 
processing  system. 
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VII.  SUMiJARY  AND  CONCLUSIONS 


It  s€€ais  appropriate,  in  summary,  to  abstract  from  the 
preceding  pages  some  organizational  principles  for  the 
construction  of  a parallel  processing  system.  These 
principles  are  inspired  in  part  by  the  principles  for 
recursive  machines  presented  in  Ref.  2.  The  three 
principles  presented  here  represent  the  essential  qualities 
of  a system  designed  for  the  parallel  processing  of 
recursive  functions.  These  principles  are  as  follows. 

1.  Programiting  language  operators  (functions)  are  defined 
recursively  in  terms  of  mach ine- leve 1 operators. 

2.  Parallel  tasks  are  distributed  among  available 
processors  so  that,  at  any  time  during  program 
execution,  the  internal  machine  structure,  i.  e.  the 
relationships  between  processors,  represents  the 

structure  of  the  executing  program. 

V 

3.  Processors  share  a common  main  memory  in  which  the  data 
is  stored  associatively . 


The  first  principle  is  quite  similar  to  the  first 
principle  for  recursive  computer  organization  discussed  in 
Ref.  2.  By  defining  operators  of  tne  programming  language 
as  recursive  functions  composed  of  previously  defined 
functions  which  are  ultimately  defined  in  terms  of 
machine-level  functions,  there  are  no  limits  to  the  language 
levels  possible.  And  yet,  no  matter  how  complex  the 
language  operators  become,  the  programmer  is  still 
programming  essentially  in  machine  language,  thus 
eliminating  the  need  for  intermediate  compilation. 
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with  such  a language  structure,  a user  could  define  a 
set  of  functions  which  would  represent  a special  purpose 
programming  language  for  his  particular  problem  area,  rather 
than  having  to  adapt  to  a general  purpose  "high-level" 
language . 

The  second  principle  implies  the  need  for  some  complex 
intercommunication  scheme  between  processors  working  on  the 
same  problem.  For  example,  should  each  processor  be 
connected  to  all  other  processors,  or  should  processors  be 
arranged  in  some  ideal  network  that  provides  "sufficient" 
intercommunication?  The  example  parallel  processing  system 
proposed  in  the  previous  section  suggests  a single  transfer 
bus  controlled  by  a processor  manager.  This  "conveyor" 
method  has  been  included  in  earlier  proposals  for  parallel 
systems  [ 12  ] . 

The  second  principle  also  implies  the  concept  of 
space-sharing  as  opposed  to  time-sharing.  A user  program 
from  a peripheral  terminal  would  be  allocated  available 
processors  until  completion  rather  than  being  paged  in  to  a 
single  processor  for  a time-slice.  As  the  time-slice 
prevents  a single  user  from  monopolizing  a time-sharing 
system,  similar  controls  could  be  provided  in  a parallel 
system  by  limiting  the  number  of  processing  elements  or 
processing  modules  availaole  to  a single  user  program. 


The  third  principle  suggests  sharing  a main  memory  among 
the  processing  elements.  This  would  eliminate  the  excessive 


data  transmissions  that  would  occur  if  each  processor  had 
its  own  memory.  Storing  the  data  associatively  implies  any 
scheme  in  which  the  data  is  arranged  to  facilitate  accessing 
successive  data  elements.  This  principle  has  been 
implemented  in  the  past  (and  in  the  Interpreter)  by  building 
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For  a memory  which  stores  data 
S-expressions,  the  CAH  and  CDR  functions 
element  represent  access  operations 
elements  of  that  data  element.  These  two 
performed  automatically  by  a "smart" 
successor  elements  always  made  available 
element  if  and  when  they  are  needed. 


in  the 
applied  to 
to  the 
functions 
memory, 
to  a p 


form  of 
a data 
successor 
could  be 
and  the 
recessing 


The  concepts  of  parallel  computation  are  not  new.  The 
literature  is  rich  with  proposals  for  parallel  machines, 
summaries  of  such  proposals,  methods  for  recognizing 
parallelism,  and  other  related  subjects.  Parallel  machines 
of  the  past  have  been  costly  to  construct  and  have  reguired 
complex  software  support.  ?!eanwhile,  sequential  machines 
have  continued  to  achieve  faster  execution  speeds.  But  now, 
as  the  increases  in  execution  speeds  begin  to  level-off,  and 
LSI  technology  brings  the  cost  of  parallel  systems  within 
reason,  the  stage  is  set  for  a new  and  different  generation 
of  computing  machines.  A proposal  has  been  given  for  a 
parallel  processing  system  based  on  defining  algorithms  as 
recursive  functions.  Evalguote2  has  demonstrated  that  the 
structure  of  algorithms  defined  as  recursive  functions  makes 
possible  the  distinction  between'  'parallel  and  sequential 
tasks.  The  ideas  presented  in  this  thesis  represent  an 
attempt  to  show  that  a parallel  system  based  on  simple, 
highly-structured  software  can  realize  the  speed-up  of 
parallel  computation  while  avoiding  the  burden  of  complex 
software . 
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aPPESDIX  A 
SYNTAX 

[ 

1 

I The  non-terminal  symbols  are  in  lower  case  letters.  Tne 

I terminal  symbols  inclu'^e  <,  >,  &,  d>,  ",  (,  ),  upper 

I 

case  letters,  and  decimal  digits.  means  "is  defined 

i as."  'I'  means  "or."  '...'  means  any  number  of  the 

' specified  element. 


progra  m 

f unction<5-exp ; . . . ;s-exp> 

function 

identifier  | 

&<<var iable ; . . . ; variable> ; foro> 
3<identif ier ; function> 

form 

constant  | variable  | 
f u nction<arg ument ; . . . ; argument> 
<form  -1  form ;...;  form  -•  form> 

a rg  ument 

: : = 

form  1 function 

var ia  ble 

: : = 

identifier 

constant 

"atom"  1 (s-exp. s-exp)  | 
(s-exp . . . s-exp) 

s-exp 

atom  1 (s-exp. s-exp)  | 
(s-exp . . .s-exp) 

atom 

identifier  | number 

identifier 

: : = 

letter  | identifier  letter  | 
identifier  digit 

I 
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number 

;:=  digi 

t. 

1 

number 

digit 

letter 

; : = A 1 

B 

1 

c 

D 

B 1 F 1 G 

H 1 I 

J 1 

K 

1 

L 

M 

N 1 0 1 ? 

C 1 3 

s 1 

T 

1 

u 

V 

M 1 X 1 Y 

z 

digit 

: ;=  0 1 

1 

1 

2 

3 

4 1 5 1 6 

7 1 8 

9 

APPENDIX  B 


E7ALQU0TE2 


1 • EVALQU0TE2 

2 

3 &<<F(I;  ARGS>; 

4 

5 'SUB-FUriCTIOtJ  NAMES' 

6 8i<<APPLY2;  EVAL2;  EVC0M2;  GRAPHCON;  EVLIS2; 

7 COMPOSE;  COMBINE;  APPEND;  SUM; 

8 PAIRLIS;  ASSOC;  NULL; 

9 CAAR;  CAOR;  CDAR;  CADOR;  CADAR>; 


lU 

11 

'DEFINITION  OF  EVALQUOTE' 

12 

APPLy2<FN;  CONS<ARGS;  ()>; 

"m  !.">> 

13 

14 

'SUB-FUNCTION  DEFINITIONS' 

15 

16 

<'APPLY2'  &<<FN;  X;  A>; 

17 

<ATOM<FN>  •' 

18 

<Ea<FU;  "CAR"> 

19 

COHS<CAAR<rAR<X>>; 

APPEND<CDR<X>;  (1)>>; 

20 

EQ<FN;  "CDR">  " 

21 

CONS<CDAR<CAR<X>>; 

APPEND<CDR<X>;  (1)>>; 

22 

EQ<FU;  "CONS">  ’ 

23 

CONS<COIIS<rAAR<X>; 

CADAR<X>>; 

24 

APPEND<CDR<X>; 

(1)>>; 

25 

i:a<FN;  "AT0M">  " 

2b 

CONS<ATOM<CAAR<X>>; 

APPENO<COR<X>;  (1)>>; 

27 

EQ<FN;  "E0">  " 

28 

C0NS<EQ<CAAR<X>;  CADAR<X>>; 

29 

APPENO<CDR<X>; 

30 

"T"  - APPLY2<CAR<EVAL2<FN;A>>;  X;  A>>; 

31 

EQ<CAR<FN>;  "LAMB0A">  ^ 

32 

COM POSE <EVAL2<CADDR<FN> 

f 

33 

PAIRUS<CADR<FN>;  CAR<X>;  A>>;  CDR<X>>; 

34 

E0<CAR<FN>;  "LABEL">  ' 

35 

APPLY2<rADDR<FN>;  X; 

3b 

\ 7 

CONS<rONS<CAOn<FN>; 

rADPR<FN>>;  A>>>>; 

38 

•i;VAL2'  fi<<E;  A>; 

39 

<ATOM<E>  - CONS<rDR<ASSOC<E 

; A>>;  "NM">; 

40 

ATOM<CAR<E>>  ' 

41 

<E0<CAR<F>;  "OUOTE">  ' 

CONS<rADR<F>;  "NIL''>; 

42 

FQ<CAR<E>;  "COND">  ~ F VCON2 <CDR <F >;  A>; 

43 

"T"-  APPLY2<CAR<E>;  E VL 1 S2 <CPR <F> ; A>;  A>>; 

44 

"T"  - APPLY2<CAR<F>;  F VL 1 S2 <DPR <F> ; A>;  A>>>; 

45 

4b 

ti  7 

'EVCON2'  4<<C;  A>;  GRAPUCOIKF VAL2 <CAAR<r> ; A>;  C;  A>>; 

48 

'GRAPHCON'  i<<P;  C;  A>; 

49 

<CAR<P>  ' COMPOSE<FVAL2<rADAR<C>;  A>;  CDR<P>>; 

50 

"T"  ' COMPOSE<EVCON2<CDR<C>;  A>;  rOR<P>>>>; 

51 

52 

'EVLIS2'  4<<L;  A>; 

53 

<NULL<L>  ^ "HI L"; 

54 

Q C; 

"T"  ’ COMBI  NF<EVAL2<CAR<I > 

; A>;  EVLI S2<CDR<L>;  A>>>>; 

5b 

1.  7 

'COMPOSE'  4<<X;  Y>;  C0NS<CAR<X> 

; APPENO<Y;  C0R<X>>>>; 

J / 

58 

'COMBINE'  &<<U;  V>; 

59 

<NULL<V>  ' CONS<CONS<CAR<U> 

; "NIL">;  Cnfi<U>>; 

bO 

"T"  ■'  CONS<CONS<CAR<U>;  CAR<V>>; 

bl 

SHM<CnR<H>;  CDR<V>>>>>; 

59 


u c 

63 

'APPEND'  *i<<X;  Y>;  <HI1LL<X>  ^ Y; 

64 

"T 

" •’  CONS<CAR<X>;  APPEND<rnR <X >;  Y>>>>; 

65 

66 

'sun' 

&<<X;  Y>; 

67 

<NULL<X>  ' Y;  NUI.L<Y>  ' X; 

68 

II 

T"  ' CONS<ADn<CAR<X>;  CAR<Y>>; 

69 

SNM<rnR<X>;  CPP<Y>>>>>; 

70 

71 

'PAIRLIS'  S<<X;  Y;  A>; 

72 

<IIULL<X>  ^ A;  "T"  " COtlS<rOIIS<rAR<X>;  TAR<Y>>; 

73 

PAIRLI S<CDR<X>;  CDR<Y>;  A>>>>; 

74 

75 

'ASSOC 

' 4<<X;  A>; 

76 

<EQ<CAAR<A>;  X>  ' CAR<A>;  "T"  - ASSOC<X;  rflR<A>>>> 

77 

78 

'MULL' 

&<<L>;  E0<L;  "Nll">>; 

79 

80 

'CAAR' 

4<<L>;  CAR<CAR<L>>>; 

81 

82 

'CADR' 

4<<L>;  CAR<cnR<L>>>; 

83 

84 

'CDAR' 

6<<L>;  CDR<CAR<L>>>; 

85 

86 

'CADDR 

' «i<<L>;  CADR<CnR<L>>>; 

87 

88 

'CADAR 

' *<<L>;  CAR<CDAR<L>>>>> 

89 

90 

91 

* SAMPLE  ARGUMENTS  FOR  EVALOUOTE 

9 2 

93 

<(LAnrL  PAIRLIS  (LAMBDA  (X  Y A) 

94 

(CONO 

((EG  X (QUOTE  NIL))  A) 

95 

((OUOTE  T)  (CONS  (CCMS  (CAR  X)  (CAR  Y)) 

96 

CPAIRLIS  (CDR  X)  (CDR  Y)  A)))))); 

97 

((A  B)  (1 

2)  ((C.3)))> 

98 

1# 

• *••••  EVALUATIOtl  BPniflS  •••**• 
RESULT  IS: 

(((A.l)  (R.2)  (C.3))  1 U 2 U 2 1 1) 


FREE  STORAOE  limAimilG:  2768 

039.08  SCCOlinS  III  EXECUTinil 
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APPENDIX  C 
TRANSLATION  ROLES 

Rules  for  translating  prograas; 

1.  A function  is  translated  by  the  rules  for  translating 
functions . 

2.  <s-esp  ; . . . ; s-exp>  translates  to  (s-exp. . . s-exp) . 

Rules  for  translating  functions; 

3.  6<<X ; . . . ; XN>;  form>  translates  to 

(LAMBDA  (XI... XN)  form*)  where  form*  is  the  translation 
of  a form. 

4.  a)<FN;  function>  translates  to  (LABEL  ?N  function*) 
where  function*  is  the  translation  of  a function. 

5.  If  a function  is  an  argument,  then  it  translates  to 
(QOOTE  function*)  . 

Rules  for  translating  forms: 

6.  "X"  translates  to  (QUOTE  X). 

7.  If  the  form  is  a parenthesized  s-expression,  then  it 
translates  to  (QUOTE  (s-exp)). 

8.  f unction<argu ment ; . . . ; a rgument>  translates  zo 
(function*  argument*. .. argument*)  , where  argument*  is 
the  translation  of  an  argument  which  can  be  a form  or  a 
function. 

<form  -<  f orm  ; . . . ; form  -■  form>  translates  to 
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9. 


(COND  (fora*  fora*)  ...  (fora*  form*)). 
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appendix  d 


SAMPLE  PROGRAMS 


Program 


JT 

1 U<PAIRLIS;  &<<X;Y;A>; 

2 <Ea<X;"NI L">  ^ A; 

3 "T"  ^ CONS<CONS<CAR<X>;CAR<Y>>; 

4 PAI RLI S<CDR<X>;CDR<Y>;A>>>>> 

5 

6 <(A  B);(l  2);((C.3))> 

7 # 


******  TRANSLATintl  POLLOl/S  ****** 

(LABEL  PAIRLIS  (LAMBDA  (X  Y A)  (COND  ( ( EQ  X (OUOTE  MID)  A)  ((DUOTE  T)  ( 
cons  (CONS  (CAR  X)  (CAR  Y))  (PAIRLIS  (CDR  X)  ( CDR  Y)  A)))))) 

((A  B)  (1  2)  ((C.3?)) 


******  evaluation  begins  ****** 

RESULT  IS: 

(((A.l)  (B.;)  (C.3))  1424211) 


PROCESSORS  REOUIRED  FOR  OPTIMUM  PARALLELING.  4 

EXECUTION  STEPS  (PARALLEL) 7 

EXECUTION  STEPS  (SERUENTIAL) 15 

SPEED-UP  RATIO  ( SEQUENT  I AL/ PARALLE L ) 2.14  285  7 

FREE  STORAGE  RFMAINING:  15925 

002.96  SECONDS  IN  EXECUTION 


Program  2 


1 

2 

3 

4 

5 
C 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 


• THIS  FUNCTION  PERFORMS  MATRIX  MULTIPLICATION. 

• DOT  PRODUCTS  ARE  COMPUTED  RY  PERFORMING  SEOUFNTIAL 

• ADDITIONS  OF  INTEGER  PRODUCTS. 

a<<A;B>; 

4<<MATMUL;  ROW;  DOT;  NULL>; 


HATMUL<A;B>> 


<’MATMUL'  4<<X;Y>;  <NULL<X>  ’ "NIL"; 

"T"  •'  CONS<ROW<CAR<X>;  Y>;  MATMUI.<CDR<X>;  Y>>>>; 


'ROW'  a<<R;C>;  <NULL<C>  ' "NIL"; 

"T"  ' CONS<DOT<R;  CAR<C>>;  ROW<R;  CDR<C>>>>>; 


'DOT'  a<<U;V>;  <NULL<U>  - 0; 

"T"  ■'  ADD<MUL<CAR<U>;  CAR<V>>;  DOT<CDP<U>;  CDP<V>>>>>; 

'NULL'  &<<L>;  EQ<L;  "HIL">>>> 

•SAMPLE  INPUTS 

<((1  1 1 1)  (1  1 1 1)  (1  1 1 1)  (1  1 1 1)); 

{(1  1 1 1)  (1  1 1 1)  (1  1 1 1)  (1  1 1 1))> 


EVALUATION  BEGINS 


RESULT  IS: 

(((4  4 4 4)  (4  4 4 4)  (4  4 4 4)  (4  4 4 4))  1 2 2 4 4 10  8 20  14  32  20  46 
26  53  29  53  29  45  25  31  19  I'J  13  10  8 5 5 3 3 2 2 1 1 1 1 1 1 ) 


PROCESSORS  REQUIRED  FOR  OPTIMUM  PARALLELING.  S3 

EXECUTION  STEPS  (PARALLEL) 37 

EXECUTION  STEPS  (SEQUENTIAL) 549 

SPEED-UP  RATIO  (SEQUENTIAL/PARALLEL) 14.83784 

FREE  STORAGE  REMAINING:  11273 

019.56  SECONDS  IN  EXECUTION 
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Program  3^ 


$» 

$A  GRAPHING  ARITHMETIC  OPERATIONS  ONLY 

1 • THIS  FUNCTION  PERFORMS  MATRIX  'll)  LT  I PL  I CAT  I ON . 

2 • DOT  PRODUCTS  ATE  COMPUTED  BY  PERFORMING  SEOUENTIAL 

3 * ADDITIONS  OF  INTEGER  PRODUCTS. 

4 

tL  SUPPRESS  FUNCTION  LISTING 

$L  TURN  ON  LISTING  FOR  ARGUMENTS 

21  *SA/.1PLE  INPUTS 

22  <((1111)(1111)(1111){111D); 

23  ((1  1 1 1)  (1  1 1 1)  (1  1 1 1)  (1  1 1 1))> 

24  # 


******  EVALUATION  BEGINS  ****** 

RESULT  I S: 

((C4  4 4 4)  (4  4 4 4)  (4  4 4 4)  (4  4 4 4))  64  16  16  16  16) 


PROCESSORS  REOUIRED  FOR  OPTIMUM  PARALLELING.  64 

EXECUTION  STEPS  (PARALLEL) 5 

EXECUTION  STEPS  (SEOUENTIAL) 128 

SPEED-UP  RATIO  ( SEQUENT  I AL/ PAR ALLEL ) 25.59999 

FREE  STORAGE  REMAINING:  11369 

016.35  SECONDS  IN  EXECUTION 


Program  4_. 


1 • THIS  FUHCTIOM  PErirORHS  MATRIX  MULTI  PU  TATI  Oil. 

2 * DOT  PROrtlCTS  ARE  COMPUT-'D  BY  PERFORM  I MH  PARALLEL 

3 * AnniTIOIIS  OF  PAIRS  OF  I fiTFGFR  PPOPUCTS. 

U 

5 «i<<A;n>; 

G fi<<MATHUL;  ROW;  POT;  SUM;  REPUCE;  VMUL;  CAPR;  CPPR;  MULL>; 

7 

8 MATMUL<A;R>> 

9 

10  <'MATI1UL'  &<<X;Y>;  <NUI.L<X>  •'  "IIIL"; 

11  "T"  ' rOHS<ROVKCAR<X>;  Y>;  MATMUL<rPR<X>;  Y>>>>; 

12 

13  'ROW'  ft<<R;C>;  <mil.L<r>  ^ "Mil"; 

U "T"  ■'  CONS<POT<R;  CAR<P>>;  ROW<R;  CPR<P>>>>>; 

15 

16  'POT'  a<<tl;V>;  SUM<VMUL<U;  V>>>  ; 

17 

18  'SUM'  A<<A>;  <MULL<CPPR<A>>  ' APP<PAR<A>;  rAPR<A>>; 

19  "T"  ~ SUM<REPUPF<A>>>>; 

20 

21  'RFPUCE'  A<<A>;  <MULL<A>  ' "MIL";  MULL<CPR<A>>  ' A; 

22  "T"  ' COMS<APP<CAR<A>;  rAPR<A>>;  REPUCE <rPPR<A> >>>> ; 

23 

2U  'VMUL'  fi<<U;V>;  <MULI.<V>  ' "MIL"; 

25  "T"  - CPMS<MIIL<CAR<U>;  f.AR<V>>;  VMUL<CPR<U>;  CPR<V>>>>>; 

2G 

27  'CAPR'  6<<L>;  CAR<CPR< L > > > ; 

28 

29  'CPPR'  fi<<L>;  COR <CPR< L > > > ; 

30 

31  'MULL'  A<<L>;  EQ<L;  "MIL">>>> 

32 

33  ‘SAMPLE  IMPUTS 

314  <((1  1 1 1)  (1  1 1 1)  (1  1 1 1)  (1  1 1 1)); 

35  ((1  1 1 1)  (1  1 1 1)  (1  1 1 1)  (1  1 1 1))> 

36  » 


rVALIIATIOM  PERI  NS 
RESULT  IS: 


(((l4 

l4 

l4 

4) 

(4  t 

1 4 

4) 

(4 

4 4 4 ) 

(4  4 

4 4)) 

CO 

O 

r—i 

<M 

CM 

2(1 

14 

32 

2(1 

4 

2G 

53 

29 

53 

29 

4 6 

26 

34 

22  25 

19  21 

18  21 

18  24  21  28  25 

28 

27 

26 

79 

2 

28 

20 

25 

17 

22 

14 

18 

10 

13  7 9 

5 6 

3 3 2: 

! 1 1 1 1 1 1) 

PROCESSORS  REQIIIREP  FOR  OPTIMUM  PAPAL  LEI.  I MR . 53 

EXECUTIOM  STEPS  (PARALLEL) 59 

EXECtlTIOM  STEPS  ( SEOUEMTI  AL  ) 10U5 

SPEEP-UP  RATIO  (SEQUEMTI AL/PARALLEL) 17.71185 

FREE  STORAGE  REMAIMIIIR:  6956 

038.90  SECOMPS  III  EXECUTION 


66 


Program  5 


JA  nr’.APiiitir.  AniTiinrTir  oPERATinfir.  omly 

1 

2 • THIS  nmcTioii  perfopps  matpix  fi  t ti pi  irATioii. 

3 * DOT  PROniirTS  ARE  COITl’TEP  CY  PEPEOPf  I fT,  PAPAIIEI 

U * ADDITIOriS  OF  PAIRS  OF  I HTFT.FP  PPOPUrTS. 

5 

$L  SUPPRESS  FUfICTIOri  t.lSTiriO 

$L  LIST  APOIIHEIITS 

34  •SAMPLE  IlIPtITS 

35  <((1  1 1 1)  (1  1 1 1)  (1  1 1 1)  (1  1 1 1)); 

36  ((1  1 1 1)  (1  1 1 1)  (1  1 1 1)  (1  1 1 1))> 

37  » 


EVALUATION  BEOiriS  •***♦• 

RESULT  IS; 

(((4  4 4 4 ) (4  4 4 4 ) (4  4 4 4 ) (4  4 4 4 ))  64  32  16  ) 


PPOPESSORS  PEflUIPEP  FOP  OPTIMUM  PAPAI  ..FL  I MO.  64 

EXECUTIOII  STEPS  (PARALLEL) 3 

EXECIITIOII  STEPS  ( SEOUEIITI  AL  ) 112 

SPEED-UP  RATIO  ( SEQUFIITI  AI./PARAI  I El  ) 37.33333 

FREE  STOPADE  PEMAIIIINO:  7122 

031.96  SECONDS  III  EXECUTION 


Program  5 


1 

2 

3 

4 

5 
G 
7 

a 

9 

lU 

11 

12 

13 

14 

15 
IG 
17 
lli 

19 

20 
21 
22 

23 

24 

25 
2G 

27 

28 

29 

30 

31 

32 

33 

34 

35 
30 

37 

38 

39 

40 

41 

42 

43 

44 

45 
40 

47 

48 

49 

50 

51 

52 

53 

54 

55 
5G 

57 

58 

59 
GO 


• niFTFREDTI ATE  A POLYHOMIAL  WITH  RFSPFCT  TO 

• OtIE  OF  ITS  VARIA8I.es.  SICPLIFY  THE  RESUI  T. 

f.<<H;X>;  'SIMPLIFY  DERIVATIVE  OF  "P"  W.R.T.  "X"' 

7i<<CAOR;  CAOOR;  COIIS3>;  'OFFItlE  PRIMITIVES  01!  A-LIST 
0<SIMP;  &<<P>;  'SIMPLIFY  FUMCTIOIl' 

<ATOH<P>  •’  P; 

ii-j-ii  -• 

i<<Pl;  OP;  P2>; 

<EQ<OP;  "+">  ^ 

<E0<P1;  "0">  - P2; 

E0<P2;  "0">  ' PI; 

"T"  ' C0MS3<P1;  P2> 

>; 

iiyii  — 

<EQ<P1;  "0">  ' "0"; 

EQ<P2;  "0">  •'  "0"; 

EQ<P1;  "1">  P2; 

EQ<P2;  "1">  ^ PI; 

"T"  ■’  C0HS3<P1;  P2> 

> 

> 

> 

<SIMP<CAR<P>>;  CAOR<P>;  S I MP<CAOPR < P>> > 

> 

>> 

< 'ARGlIMEfIT  FOR  SIMP' 

Q<OIFF;  4<<P;  X>;  'OERIVATIVE  FUllCTIOr!' 

<ATOM<P>  ' <EQ<P;  X>  ’ "1";  "T"  ' "0">; 

"T"  ■*  &<<P1;  OP;  P2>;  'MORE  THAN  OME  TERM' 

<EQ<OP;  "♦">  ^ 

COriS3<DI  FF<P1;  X>;  0IFF<P2;  X>>; 

"T"  ^ COflS3<COIIS3<OI  FF<P1;  X>;  P2>; 

COtlS3<OIFF<P2;  X>;  Pl>>>> 

<rAR<P>;  CAOP,<P>;  CAOOR<P>>>>> 

<P;  X>  'ARGUMENTS  FOR  01 FF' 

> 'ENO  OF  SIMP  ARGUMENT' 

> 

< 'PHIMITI VE  DEFINITIONS' 

4<<X>;  CAR<CDR<X>>>; 

4<<X>;  CADR<C0R<X>>>; 

i<<X;  Y;  Z>;  CONS<X;  CONS<Y;  CONS<Z;  "NIL">>>> 

> 'ENO  PRIMITIVE  DEFINITIONS' 

> 'END.' 


• SAMPLE  ARGUMENTS  WITH  SYMMETRICALLY  ORGANIZED 

• FOURTH-DEGREE  BINOMIAL. 

<(((X  ♦ Y)  • (X  ♦ Y))  • ((X  ♦ Y)  • (X  ♦ Y)));  X> 

• 


68 


******  evaluation  begins 


RESULT  IS: 

(((((X  + Y)  ♦ (X  + Y))  * ((X  + Y)  « (X  * Y)))  + <((X  * Y)  * (X  * Y))  * ( 
(X  ♦ Y)  * (X  + Y))))  132112fjl»22l»  12  84488l<4l»44i*22 
2 2 2 2 1 1 1 1 3 3 4 4 7 7 11  11  18  18  23  23  20  20  14  13  11  9 8 7 6 6 G 
6954433222222222211111111) 


PROCESSORS  REOUIRED  FOR  OPTIMUM  PARALLELING.  23 

EXECUTION  STEPS  (PARALLEL) 81 

EXECUTION  STEPS  (SEQUENTIAL) 422 

SPEED-UP  RATIO  ( SEQUENTI AL/FARALLEL) 5.209876 

FREE  STORAGE  REMAINING:  11739 

016.96  SECONDS  IN  EXECUTION 


69 


Program  7_^ 


• DIFFERENTIATE  A POLYNOMIAL  WITH  RESPECT  TO 

• ONE  OF  ITS  VARIABLES,  SIMPLIFY  THE  RESULT. 

SUPRESS  FUNCTION  LISTING 
TURN  ON  LISTING  FOR  ARGUMENTS 

• SAMPLE  ARGUMENTS  WITH  ASYMMETRICALLY  ORGANIZED 

• FOURTH-DEGREE  BINOMIAL, 

<((X  + Y)  * {(X  + Y)  * ((X  + Y)  * (X  * Y))));  X> 

• 


EVALUATION  BEGINS 


RESULT  IS: 

((((X  + Y)  ♦ ((X  ♦ Y)  • (X  + Y)))  + ((({X  ♦ Y)  ♦ (X  ♦ Y))  ♦ (((X  * Y)  * 
(X  + Y))  * (X  + Y)))  * (X  ♦ Y)))  15211264224855359633 
5532222211111111111111113344778S12  12 
13  12  14  14  18  18  17  16  13  13  11  11  8 7 5 4 4 4 4 4 4 4 5 3 3 3 3 3 2 2 
2222111111111111111111111111) 


PROCESSORS  REOUIRED  FOR  OPTIMUM  PARALLELING.  18 

EXECUTION  STEPS  (PARALLEL) 112 

EXECUTION  STEPS  (SEQUENTIAL) 452 

SPEED-UP  RATIO  ( SEQUENT  I AL/ PARALLEL ) 4.035  714 

FREE  STORAGE  REMAINING:  11382 

017.76  SECONDS  IN  EXECUTION 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

n 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 


* EVAI.QUOTE 
6<<FH;  AnnS>; 

'SUB-FUMCTIOtl  NAMES' 

S<<APPLY;  EVAL;  EVCON;  EVLIS;  PAIRLIS;  ASSOC; 

MULL;  CAAR;  CAPR;  COAR;  CAPPR;  CAPAR>; 

'DEFINITION  OF  EVALQUOTE' 

APPLY<FN;  ARCS;  "NIL">> 

'SUB-FUNCTION  DEFINITIONS' 

<'APPLY'  «i<<FN;  X;  A>; 

<ATOM<FN>  ■' 

<EQ<FN;  "CAR">  - CAAR<X>; 

EQ<FH;  "CDR">  ■*  CPAR<X>; 

EQ<FN;  "C0NS">  ■*  C0NS<CAR<X>;  CAPR<X>>; 

Ea<FN;  "ATOM">  ^ AT0M<CAR<X>>; 

E0<FN;  "EO">  " EQ<CAR<X>;  CAPR<X>>; 

"T"  ^ APPLY<EVAL<FN;A>;  X;  A>>; 

Ea<0AR<FN>;  "I.AMBDA">  " 

EVAL<r,AnPR<FN>;  PA  I R 1. 1 S<CAPR  <FN>;  X;  A>>; 
Ea<CAR<FN>;  "LABEL">  ^ 

APPLY<CAnPR<FN>;  X; 

CONS<rONS<rAPR<FN>;  CAPnP<FN>>;  A>>>>; 

'EVAL'  a<<E;  A>; 

<AT0M<E>  - CnR<ASSOC<E;  A>>; 

ATOM<CAR<E>>  ^ 

<EQ<CAR<E>;  "nUOTE">  ''  rAPn<F>; 

Ea<CAR<E>;  "C0ND">  ^ EVrON<CPP<E>;  A>; 

"T"'  APPLY<CAR<F>;  EVLI  S<CDr.<E>;  A>;  A>>; 

"T"  ■”  APPLY<CAR<E>;  EVLI S<CPR<r>;  A>;  A>>>; 

'EVCON'  A<<C;  A>;  <NULL<C>  - "UNDEFINED"; 

EVAL<CAAR<C>;  A>  ''  E VAL <CAPAP <r > ; A>; 
"T"  ' EVCON<CPR<C>;  A>>>; 

'EVLIS'  A<<L;  A>; 

<NULL<L>  " "III  L"; 

"T"  ^ COHS<EVAL<CAR<L>;  A>;  EVL I S<CPR<L> ; A>>>>; 
'PAIRLIS'  A<<X;  Y;  A>; 

<NULL<X>  - A;  "T"  ~ rONS<rONS<rAR<X>;  rAR<Y>>; 

PAI Rl I S<CPR<X>;  rPR<Y>;  A>>>>; 


48  'ASSOC'  ft<<X;  A>; 

49  <rO<CAAIKA>;  X>  ~ CAn<A>;  "T"  ' ASROC<X;  CDR<A>>>>; 

50 

51  'NULL'  ft<<L>;  E0<l ; "Nll">>; 

52 


53 

'CAAR' 

A<<L>; 

rAR<CAR<l>>>; 

54 

55 

'CAPR' 

7(<<L>; 

rAR<rpR<l  >>>  ; 

56 

57 

'rPAi;' 

A<<L>; 

rPP<CAR<l >>>; 

58 

59 

'CADDR 

A<<L> 

; CAPP<rPP<L>>>; 

60 

61 

'CAUAI; 

A<<L> 

; CAP<rpAR<l.>>>>> 

71 


♦ SAMI’Li:  AKClIflEtlTS  FOR  tVALODOTF 


r 


I 
[ 

03 
OU 

65 

66  <(I.A[irL  PAIP.LIS  (LAMBDA  (X  Y A) 

67  (conn  ((EQ  X (QUOTE  NIL))  A) 

68  ■ ((QUOTE  T)  (CONS  (CONS  (CAR  X)  (CAR  Y)) 

69  (PAIRLIS  (CDR  X)  (CDR  Y)  A)))))); 

70  ((A  r.)  (1  2)  ((C.3)))> 

71  # 


• •••*•  EVALUATIOfI  BEGINS 
RESULT  IS: 


(((A. 

1) 

(B. 

2) 

(C. 

3)) 

1 

1 

1 

1 

1 

3 

3 

2 

1 

1 

1 

1 

1 

2 

2 

2 

4 

2 

4 

2 

4 

2 

1 

1 

1 

1 1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

2 

1 

2 

2 

3 

3 

2 

2 

2 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 2 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

2 

1 

2 

2 

3 

3 

2 

2 

2 

' i 

2 4 

3 

5 

5 

5 

5 

6 

6 

6 

5 

8 

6 

8 

7 

6 

6 

5 

5 

5 

5 

5 

5 

3 

3 

3 

2 

2 

2 

2 

2 

2 

2 

2 j 

2 2 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

2 

2 

2 

4 

2 

4 

2 

4 

2 

i 

1 1 

1 1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

2 

1 

2 

2 

3 

3 

2 

2 

2 

1 

1 

1 

1 

1 

1 

1 

1 1 

1 

2 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

2 

1 

2 

2 

3 

3 

2 

2 

2 3 

2 

4 

3 

5 

5 

5 

5 

6 

6 

6 

5 

8 

6 

8 

7 

6 

6 

5 

5 

5 

5 

5 

5 

3 

3 

3 

2 

2 

2 

2 

2 

2 

2 

2 3 

2 

2 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 1 

1 

2 

2 

2 

4 

2 

4 

2 

4 

2 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

2 

1 

2 3 

3 

2 

2 

2 

1 

1 

1 

1 

1 

1 
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1 

1 

1 

2 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 1 

1 

1 

1 

1 

1 

2 

1 

1 

1 

1 

1 

1 

1 

1 

2 

1 

1) 

PROCESSORS  REQUIRFD  FOR  OPTIMUM  PARALLELING.  8 

EXECUTION  STEPS  (PARALLEL) U05 

EXECUTION  STEPS  (SEQUENTIAL) 754 

SPEED-UP  RATIO  (SEQUENTI  AL/PARAI.LEL) 1.861728 

FREE  STORAGE  REMAINING:  8349 

032.12  SECONDS  IN  EXECUTION 


72 


APPENDIX  E 


AL30L-W  INTERPRETER 


0000  1 
0001  - 
0001  - 
0001  - 
0001  - 
0001  - 
0001  - 
0001  - 
0001  - 
0001  - 
0001  - 
0001  - 
0001  - 
0001  - 
0001  - 
0C01  - 
0001  - 
00  01  - 
00 Cl  - 
00  01  - 
0001  - 
0001  - 
OC01  - 
0001  - 
00  01  - 
0001  - 
0001  - 
0001  - 
0001  - 
00  01  - 
0001  - 
0001  - 
0001  - 
00  01  - 
00  01  - 
0001  - 
0001  - 
0001  - 
0001  - 
0001  - 
0001  - 
0001  - 
0001  - 
0001  - 
0001  - 
00  01  - 
0001  - 
0001  - 
00  01  - 
0001  - 
0001  - 
0001  - 
0001  - 
0001  - 
0001  - 
0001  - 
0002  - 
0003  - 


SZGI!I  ***************  ***********************’****** 


E7iL00O?32 


27ALQOOTS2  IS  AN  ALOOL-W  PHOGEAN  0ESIGS2D  TO 
I2AHSLAT2  AND  INT2BPS2T  IMPOT  PROGHANS  3HITT2N 
IN  XH2  N2TA-LANG0A3E  0?  P0R2  LISP.  DOSING 
INTEEPBETAIION,  HVALQOOT22  ANALI5E3  IH2  DATA  PLOW 
THBOOGn  XSE  LISP  P30G3AN  AND  GENSaATES  A 72CI0? 
D2SC3I3ING  THE  DATA  ?L03  GHAPH. 


ORGANIIATION 

THE  PaOGHAJ!  HAS  3E-3N  LOGICALLI  DIVIDED  INTO 
SECTIONS. 


GLOBAL  DECLAHATIONS 
PP.IHITI7  23 
STORAGE  HANAGEHENT 
INPOT  S3PPORT 
PROPEHT?  LIST  ACCESS 
INITIALITATION 
TPAVSLATION 
INTSaPaETATIDN 
EEHC3  HANDLING 


3CNIT0S 


CONSENT********************************  **«*  ««««**x*«**xx***a 
» * 

• SECTION  I:  GLOBAL  DECLASATIDNS  • 


INTEGER  ELH:  C 

INTEGER  LENGTH;  C 
INTEGE.3  lEP;  C 

INTEGER  LIS3_NC;  C 

CONSENT  THE  FOLLOW: 
CELLS  Or  I? 

INTEGE3  LAS3DA,  LA3i 
INTEGER  ICA3,  ICDS, 
INTSGSH  PNASE,  T,  E, 

INTEGER  CONSTANT,  II 
CONSENT  TOKEN  C.3 
INTEGER  TIPS:  COHN- 

INTEGER  HEADER;  CO,‘ 

STRING  (1)  C,  NC: 

CO.lNrNT  CURRENT 
STRING  (EC)  30?;  C 
STRINGri)  TOK;  CC 

LOGICAL  ’LAGS,  LIST, 
CONSENT  CCSPILS; 
LOGICAL  INTRANS; 

CONSENT  INDICAT: 
LOGICAL  COLLECTED; 
CONSENT  INDICAT; 


TREE  LIS:  HEADER; 

THE  LENGTH  D?  THE  CURRENT 
THE  INPUT  30EEER  POINTER; 

THE  INPUT  LINE  NUS3EH; 

THE  LOCATIONS  0?  THE  AID; 
R7ED  WORDS  Or  THE  LISP  LAJ 


lE'J,  lATON,  lADD,  INUL; 


;r,  special,  SUNS; 

rN'CATEGOR'f  DF  CURRENT  TO? 

:r  to  aton  header  cell  of 


AND  NEXT  CHARACTER  IN  INPUT  STRr 
CDNNENT  THE  INPUT  SUFFER; 

CNNENT  THE  CURRENT  TOKEN; 

, TRANS,  \3TTH; 

3 TOGGLES; 

ES  I?  IN  TRANSLATION  OR  TNISRPRET 
3S  r?  HASH  TA3LE  HAS  SEEN  FREED; 


3IT3  ARRAY  N(0;: 16333);  CONNSNI  WORKSPACE; 


COSilSM 


0061  -- 
0061  -- 
0061  — 
0061  — 
0061  — 
0061  — 
0061  — 
00  62  — 
0062  2- 
0063  — 
00  6u  — 
0065  — 

0065  3- 

0066  -- 
0066  — 
0066  — 
0067  4- 
0063  -- 

0069  -- 

0070  -4 

0071  -3 

0072  — 

0073  -- 

0073  -2 
00  74  — 

0074  — 

0075  — 
0075  2- 
0075  -- 
00  77  — 
CO'^a  -2 

007?  — 

0079  -- 

0080  — 
0080  — 
0080  2- 
0031  -- 
0082  -- 
0093  -- 
OOaa  -2 

0085  -- 
0095  -- 

0086  2- 

5097  -- 
0037  -- 
5038  -- 
5088  3- 
0099 

0090 

0091 

0092  -- 
0092  -- 

0092  3- 

0093  — 

00  94  — 
0095  — 
5056  -3 
0097  — 

5098  -2 

5099  -- 

0099  -- 

0100  — 
0100  2- 
0102  — 
0104  — 
0104  3- 
5105  — 
0106 

01  07 
0108 
5108  -2 
0109  -- 
0109  -- 
0109  -- 
0109  — 
0109  — 
0109  -- 
0109  -- 
0109  -- 
5110  — 
01  10  2- 
0111  — 
0112  -- 

0113  -- 
5114  — 

0114  - 2 

0115  -- 
51  15  -- 


CCMaSHT** 

m 

* S2CTI05I  III:  STORiGS  3iSiG2a2NT 


-3 


3 


IH’:2G2H  ?aCC2CaR2  ALL0C,\T2; 

COaaRNT  JLLCCA72  0M2  CELL; 

32GIN 

I5.T2G2R  X; 

X :=  CDR  (?LH)  : 

I?  X = SIL  TH2M 
3 2GI5I 

I?  IHTRiNS  CR  COLLECTED  THEN 
ERROR  (2) 

ELSE 

BEGia 

EREE  HASH  TA3LE; 

X :="coH(?La): 

SaD; 

E90: 

SETCDR  (Ha,  CDR  (X)  ) ; 

X 

EMD  ALLOCATE; 

PROCEDURE  ?REE(iaTEGER  VALUE  X); 

COaaEHT  RELEASE  CELL  AT  X TO  FREE  LIST; 


3EGIH 


iii):  (PLH)  : 

a FLH)  : = BITST3IXG  (X)  ; 
EHD  FREE; 


PROCEDURE  'REE  A LI3T(INTEGE3  VALUE  ?,A); 
COaaERT  FP.EE'OUTDATED  PORTION  OF  A LIST 
IF  ? -=  A THEN 
3EGIN 

FREE  A LIST  (CDR  (?)  , A)  ; 

RREE7C5CR  (?)  ) ; 

lN5f‘^’  = 

PROCEDURE  FREE  HASH  TABLE; 

3EGIN 

PROCEDURE  FREE  ST XCK { INTEGER  VALUE  I)  ; 
IF  I -=  Ni:  THEN 
3EGIN 

FREE  ST  ACR  (COS  ( I)  ) ; 

■ FHEETI5  ; 

END; 

FOR  I :=  26  UNTIL  1 53  00 
3 EGIN 

FREE  STACK  (COR  (I)  ) ; 

??.EE”3TACK  (CAR  ( I)  I ; 

FREETI)  ; 

END; 

COLLECTED  :=  TRUE; 

END  F3EE_aASH_TA3LE ; 

INTEGER  PROCEDURE  FREE  CZtlS; 

COaaSNT  RETURN  SIZE  OF  FREE  STORAGE; 
3EGIN  INTEGER  RTR,  COUNT; 

PTH  :=  C3R(FLH1:  COUNT  :=  5; 

X«ILE  PTR  ->=  NIL  DO 
BEGIN 

COUNT  :=  COUNT  ♦ 1; 

PTR  :=  CDR  (PTR)  ; 

END; 

COUNT 

END  FREE_CELLS; 
coaasNT* 

• SECTION  IV: 


INPUT  SUPPORT 


INTEGER  PROCEDURE  3DILD  C AT0a(INTEGE3  VALUE  A); 

COaaENT  CREATE  ATOa'HEAOEH  STRUCTURE  FOR  CONSTANT  A; 
3EGIN 

INTEGER  C; 

C ;=  ALLOCATE; 

a(C)  ;=  3ITST3ING  (A)  ; 

CONS  (NUaSEH  (FFFFE)  , Cl 
END  3UILD  C ADON; 
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-u 


01  15  — 
01  16  — 
01  17  — 
01  17  -- 

0117  2- 
01  10  — 

0118  — 

0119  — 

0120  — 
oi;o  -- 

0120  3- 

0121  -- 
0122  -- 
0122  — 

0123  -- 
012a  -- 

0124  — 

0125  -- 

0125 

0126  — 
01  27  — 
0128  -- 
0129  -- 

0129  a- 

0130  — 

0131  -- 

0132  — 
01  33 

0133 

0134  a- 

0135  -- 

0136  -- 

0137  -- 
01  38  -4 
0139  — 

0139  -3 

0140  — 

0140  — 

0141  — 

0142  — 

0142  -2 

0143  -- 

0143  — 

0144  

0145  — 
0145  -- 

0145  2- 

0146  -- 

0147 

01  48  — 

0149  -- 

0150  -- 

0150  -2 

0151  -- 

0151  -- 

0152  — 

0152  -- 
0133  — 

0153  -- 
0153  -- 
0153  — 
0153  “ 
0153  -- 
0153  — 

0153  -- 

0154  — 

0154  -- 

0 154  2- 

0155  -- 

0156  -- 

0157  -- 

01  57  3- 
■0158  -- 

0159  -- 

0160  — 

0161  -3 

0162  — 
0162  -2 
0163  — 
0163  -- 
0163  — 
0155  — 
0166 
0166  2- 
0167  -- 

0167  — 
0163  — 
0 1 63  -- 

0168  3- 

0170  -- 

0171  -- 

0171  4- 

0172  -- 

0173  -- 

0174  -4 

0175  -3 


PHOCSDtJH-  3DI10  ATOM  (STH'HG  <72)  ViLOE  WoaO; 
i;iT5G2R~VAI.0E  A,3)  ; 

COaSENT  CREATE  ATOr.  HEADER  sTROCTORE  70R  V 


WORD  OF 

LENGTH  A AT  LOCATION  3; 

BEGIN 

INTEGER  PROCEDURE  3UIL0  ’SAKE  (STRING (72)  7ALUE  NCRD; 
INTEGER  7 ALOE  A7?)  1 

CCKMENT  CONSTRUCT  CELLS  TO  HOLD  CHARACTERS  0?  SORD 

STARTING  AT  LOCATION  ? FOR  4 LETTERS  OR  UNTIL  A; 
BEGIN 

INTEGER  3,C; 

PROCEDURE  INSERT  CH AR  (STRI NG ( 1 ) VALUE  LTR; 

- “ INTEGER  VALUE  A) ; 

CCaHSNT  INSERT  LTR  IN  CELL  A; 

a (A)  :=  (S  (A)  3HL  3)  OR  3ITSTRING  ( DECODE  ( LTR)  ) ; 

3:=ALLCCATE; 

C:=ALLOCATS; 

SSTCAR  (B,C)  ; 
a (C)  : =#0; 

I?  (A-P)_  < 5 THEN 
BEGIN 

SETCDfi  (3,NIL)^: 

FOR  I:=p  until 
FOR  I:=1  UNTIL 
END 

ELSE 

BEGIN 

FOR  I:  = ? UNTIL  (P  + 3)  DO  INSERT  CHAR  (WO  R D (I  I 1 ) , T) 
P:=P+4; 

SETCDR(3,aUILD  P N A HE ( WO RD , A , ?) ) ; 

END: 

3 

END  3aiLO_PNAaS; 

IF  A <=  0 THEN  ERROR  (3)  ; 


(A-1)  DO  INSERT  CHA  R (WO  ? D (I  I 1 ) , C) 
(4+p-A)  DO  a (C)  T=H  (C)  SHL  d; 


H(3)  :=  1(3)  OR  AFFFFOOOO; 

33TCDR  (B.CONS  (PNAHE.CONS  (3UILD  PNAH  E ( WO  RD  , A,  0)  , NIL)  ) ) 
END  3aiLD_ATOa; 

INTEGER  PROCEDURE  HASH  (INTEGER  VALUE  ACCL; 

SIRING  (72)  VALUE  ACCUH]  ; 

COMMENT  CCMPUTE  AND  RETURN  HASHED  VALUE  OF  TOK  IN 
ACCUMULATOR  GIVEN  lOX  LENGTH; 

BEGIN 

INTEGER  SUH,H; 

SUM:*0; 

FOR  I:=0  UNTIL  ACCL-1  DO  S JM  :=SUa+ DECO  D E (ACCUH  ( I ( 1 ) ) 
H:=  26+SUa  REM  123; 

H 

END  HASH; 

PROCEDURE  PUSH (INTEGER  VALUE  I,  I): 

COaaENT  PUSH  ATOM  ONTO  HASH  TAaLE; 

SSTCDR  (I  ,CCNS  (X.CDR  (I)  ) ) : 


CDaaENi 


SECTION  V;  PROPERTY  LIST  ACCESS 


INTEGER  PRCCEDUFE  FIND  VALUE  ( INTEGER  VALUE  HEADER , ATTF.1 3)  ; 
CCa.IENT  SCAN  PROPEnlY  LIjT  3F  ATOM  AT  HEADER  FOR 
VALUE  Of  ATTRI3; 

BEGIN 

INTEGER  ?; 

P :=  CD? (rSADE?) ; 

WHILE  CAR(?)  ■'=  ATTRI3 
3 EG  IN 

IF  CDRi?)  = NIL  T 
P “ 

IF  ? 

END; 


DO 


THEN  Eaa03(1) 
CDs  (COR  (P) ) : 

» Nil  THEN  ERROR  (1)  ; 


CADRP) 
END  FIND 


VALUE; 


PROCEDURE  GET  PNAME (INTEGER  VALUE  I;  STRING  (72)  RESULT 
INTEGER  RESULT  LENGTH)  ; 

COMMENT  GET  PF.INTNA2Z  AND  LENGTH  D?  ATOM  AT  I; 


SUFF ; 


BEGIN 


PROCEDURE  GET  CHARS  (INTEGER  VALUE  I); 

COMMENT  ElISACr  CHARACTERS  FROM  CELL  AT 

---  - - - - DO 

G)  3HS  24)  ; 


I; 


SHL 


3EGIN  INTEGER  N; 

N :«  NUMBER  ((M(X) 

IF  N > 0 THiN 
3SGIN 

SUFF(LENGrH| 1)  :=CCDE(N); 
LENGTH  :«  LSNGTH+1; 

END  ; 

END  GST  CHARS; 
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LSMGTH  ;=  0; 

30?7  :=  '• 

X :=  ?IHD  7AL33  (X.PMAaS)  ; 

WHILE  T -3  3IL  DO 
BEGIN 

GET  CaiHS  (CAR  (X) ) ; 

X CDE(X)  ; 

END; 

END  G2T_?NAI1S; 

COHU ENT****** ^********* *********** 

« SECTION  VI:  INITIALIZATION 


P50CEDDRS  INITIALIZE: 

COMHENT  INITIALIZE  EENORX  SPACE; 

BEGIN 

PHOCEEORE  SETRSSSDS; 

COSNENT  INITIALIZE  RESERVED  WORDS  AND 
PREDEFINED  FDNCTIONS; 

BEGIN 

PROCEDURE  SETWORD (STRING (12)  VALUE  WORD; 

INTEGER  value  LENGTH,  ADDR) ; 

CCHNENT  PLACE  RESERVED  WORDS  IN  HASH  TABLE  AND 
BUILD  AICa  HEADER  STRUCTURE  AT  ADDR; 

BEGIN 

INTEGER  VAL; 

7AL  :=  KASH(LENGTH,  WORD): 

CONSENT  PLACE  RESWORDS  OS  CAR  SIDE  OF  HASH  TABLE; 
3ETCAH  [VAL, CONS  (ADDR, CAR  (VALll  ) ; 

BUILD  ATOS(WORD,  LENGTH,  ADD?.); 

2ND  iETWORD; 


0196 

3ZTWOHD  '’•PNASE" 

» 5 , 1 ) 

0197 

-- 

SETWORO  <"’T" 

,1,5 

01  98 

SETWOHD  ("?" 

,1,3) 

0199 

SET’WORD  ("NIL" 

.3,7) 

0200 

• 

SETWORD ("LAS3DA 

”,5,5 

0201 

SETWOPD ("LABEL" 

.59 

0202 

Si^iOSD ("CJUD" 

, A,  10 

0203 

- — 

SET’WORD  ("OUOTE" 

,5,11 

020U 

. — 

SETWORD  ("CAE" 

. 3,  12 

0205 

— « 

SET’WORD  ("CD  R" 

,3:12 

02  06 

- — 

SETWORD  ("CO NS " 

,4,14 

0207 

- • 

SET’WORD  ("20  " 

, 2,  15 

0208 

— 

SETWORD ("ATOS" 

,4,16 

0209 

- . 

SETWOPD ("SUL" 

,3,17 

0210 

— — 

SETWORD ("ADD" 

,3,13 

0211 

0212 

-3 

END  SETEES’WDS; 

0212 

C :=  NC  ;=  " "; 

0213 

— — 

FLH  :=  0;  LINE  NO 
LIST  :=  TSUE;  ” 

:=  0; 

0216 

— 

COLLECTED  :=  FLAGS  :=  TRANS  :=  ARITH  :=  FALSE; 

COMHENT  INITIALIZE  3YSB0LS  FOR  TOKEN  CATEGORIES; 
NUSS  ;=  U; 

IDENTIFIER  :=  1; 

SPECIAL  :=  2; 

CONSTANT  :=  3; 


C0S3ENT 

PNASE 

I 

F 

NIL 

LAS3DA 

LABEL 

COND 

OUOTS 

ICAR 

ICDR 

ICONS 

lEO 

lATOn 

ISUL 

lADD 


INITIALIZE  RESERVED  WORD  LOCATIONS; 

‘ 5! 

* 6 ; 

= U, 

* 

• 14.; 

= 13: 

* 

= 15; 

• 16; 

’ ’I: 

» 13; 


CONSENT  PLACE  NILS  ON  BOTH  SIDES  0?  HASH  TABLE; 

FOR  I:»26  UNTIL  153  DO  S (I)  :=  *0007000"’ ; 

COaSENT  INITIALIZE  THE  FREE  LIST; 

FOR  I;=15H  UNTIL  163B2  DO  S (I)  :=  BITSTPTNG  (I* 1 ) ; 

S(163  33)  :=*7; 

slOl  : « BIISTRING  (1S4)  ; 

SCANNER: 

SETPESWDS : 

END  INITIALIZE: 
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* M * xs^  * 


02  U4 

1)244 

— — 

02  44 

- - 

0244 

0244 

» — 

02  44 

02  44 

— — 

0245 

- - 

0245 

— _ 

0245 

2- 

02  46 

0246 

— _ 

0247 

- — 

0247 

3- 

0248 

- «• 

02  43 

— 

0249 

— — 

02  49 

u- 

02  50 

- — 

02  50 

— — 

0251 

— — 

0251 

- - 

0251 

5- 

0252 

— — 

0252 

0252 

— — 

0253 

02  53 

• — 

0253 

— • 

0254 

- — 

02  55 

- — 

0256 

0253 

- — 

0258 

- — 

0259 

— — 

0259 

6- 

0260 

— 

0261 

— 

0261 

7- 

0262 

— 

02  63 

— — 

02  64 

-7 

02  64 

— 

02  65 

7- 

0267 

— « 

)2  63 

- — 

0259 

- O 

0270 

-7 

0271 

- 5 

0272 

— — 

0272 

« — 

0273 

0273 

> — 

0274 

— — 

02  "U 

-5 

02  75 

- — 

02  75 

- — 

0216 

— — 

0277 

>u 

027S 

02''9 

— — 

027? 

0279 

u- 

0280 

- — 

0231 

_ 

0282 

■.  •« 

0233 

- — 

0233 

-4 

02  34 

>■  — 

0234 

— — 

0235 

0286 

— — 

02  37 

— 

0238 

— — 

0238 

-3 

.02  39 

0289 

— — 

02  90 

- - 

0290 

• — 

0290 

- - 

02  90 

0 290 

3- 

0291 

02  92 

— 

SSCmCH  7II:  SCiSMSH 


pace  2D  OP.  2 3CiHN2P: 

C0aK23T  SCAN  INPO?  STPEA2  POP  NEXT  TO.E,  \3SI3N 

TYPE,  AND  30ILD  AT0.1  HEADEP  CELZ,  IE  E.ECOiaED; 
3EGIN 

?nOC3DOE2  GNC; 

CD.IKENT  GET  NEXT  CHARACT2H  EPC.a  INPUT; 

3EGIS 

PaCCEDOPE  30NP  IBP: 

CCKEENT  INPUT  30222P  POINTEP; 

BEGIN 

PHOCEDUP2  PEADEO?: 

COSNEST  INPUTS  NEXT  RECORD,  OUTPUTS 

LISTING,  MONITORS  COMKENTS  AND  FLAGS; 
BEGIN 


PROCEDURE  SET  ELAGS  (STRING  M)  7ALUE  ,A)  ; 
COMMENT  AITEP.  THE  APPROPRIATE  FLAG; 

I?  A = ’'S'’  THE.N  FLAGS  :=  -FLAGS 

ELSE  IF  A=“L"  THEN  LIST:=-LIST 
ELSE  IF  A = "T"  THEN  TRAN  3 : =-TR ANS 
ELSE  IF  ,A  = ".A"  THEN  A RIT  H : =- AR  IT  H 
ELSE  WRITE ("IN7ALID  FLAG  CALLED  :;",A); 

PROCEDURE  GETCARD; 

COMMENT  READ  AND  LIST  A DATA  CARD; 

BEGIN 

READCARD  (3UF)  ; 

IF  3UF(0|1)  = "S"  THEN 
3 ^ j ' N 

5ET*HaGS  (oDF  (1  M)  ) ; 

IF  FLAGS  THEN  WRITE  (50F); 

END 

ELSE 

BEGIN  INTFIELDSIIE  :=  a; 

LINE  NO  :=  LINE  NO  * 1; 

IF  LIST  THEN  NHlTEdlNE  NO,"  ",3UF); 
INTFIELDSI2E  ;=  14; 

END; 

end  GEICARD; 

GETCARD ; 

WHILE  (3UF  (0|  1)  ="•")  DR  (33  F ( 0 I 1)  ='*  E ”)  DO 
GETCARu; 

I3P:=0 
END  READ30F; 


I3P:=I3P*1 I 

I?  IBP  >=  SO  THEN  R2AD3UF; 

END  3UMP_I3P: 

PROCEDURE  SKIP  COMMENT; 

COMMENT  S.KI?  D7E3  iOMMENTS  IN  INPUT; 

BEGIN 

30HP  IBP; 

■while  SUFdBPII)  -=  DO  30MP  IBP; 
30MP  IBP; 

C:  = 30F  (I3PI  1) 

END  SKIP  COMMENT; 


IF  IBP>=80  THEN  BUMP  IBP; 

C;  = 30FriB?J  1)  ; 

TD  (--iirii  SK'^’’  COM'"^N"'* 

luMP  IBP:  ‘ 

NC:='SDF  (I3P  I 1) 

END  GNC; 

PROCEDOPE  LOCK  UP; 

COMMENT  determine  I?  TOK  HAS 
STORED.  IF  NOT,  CREATE  AT 
AND  PNAME  ATTRI 3UT E- VALUE 
TO  ATOM  HEADER  CELL; 

BEGIN 

INTEGER  ADDR; 


ALREADY  BEEN 
DM  .HEADER  CELL 
PAIR.  RETURN  POINTER 


i 
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-3 


ii- 


0292  — 

0293  — 
0293  — 

0293  4- 

0294  -- 

0295  — 

0296  — 

0297  — 
0297  -- 
0293  5- 

0299  -- 
03  00  — 

0300  6- 

0301  -- 

0302  -- 
0302  -6 
0302  -- 
0304  -5 
03  05  — 
03  05  -4 
0306  — 

0306  — 

0307  — 
0307  4- 
03  00  — 

0309  — 

0310  -- 

0311  -4 

0311  -3 

0312  — 
0 312  — 

0312  — 

0313  -- 
0313  3- 
03  14 
03  15 

0316 

0317 
03  13 
03  18 
03  18 
03  19 

0320 
03  20 

0321 

0321 

0322 

0322  5- 

0323  -- 
03  24  -- 
03  25  -5 

0326  — 

0327  — 

0 170  _ U 

0329  -- 
03  30  -- 

0330  — 

0330  4- 

0331  -- 
03  33  -4 

0333  — 

0334  4- 

0335  -- 

0337  -- 

0338  -4 
0338  -3 

0338  -- 

0339  — 

0339  3- 
03  40  — 

0340  4- 

0341  -- 

0342 

0343 

0344  

0345  — 

0346  — 

0347  -3 

0347  — 

0348  — 
0343  3- 

0350  -- 

0351  -- 

0351  4- 

0352  -- 

0353  -- 

0354  — 

0355  -4 
0 3 56  — 

0357  -- 

0358  -- 

0359  -3 

0359  -- 

0360  -- 

0361  — 
0 362  -- 
0363  -2 


4 


LOGICAL  P90C2D0HH  STORED  (INTEGER  7AL0E  H)  : 

CCSaEHT  DSTEREIilE  17  ATOK  HEADER  CELL  EXISTS— 
I?  SO,  ASSIGN  HEADER; 

BEGIN 

STRING(72)  HORD; 

INTEGER  LENGTH  1; 

LOGICAL  FLAG: 

I?  H = NIL  THEN  FLAG  :=  FALSE 
ELSE 

BEGIN 

GET  PNASS  (CAR  (H)  , WORD,  LENGTH1); 

IF  TOK  = WORD  THEN 
BEGIN 

HEADER  :=  CAR  (H)  : 

FLAG  :=  TROE 
END 

ELSE  FLAG  :=  STOR ED  (CDR  (H)  ) ; 

END; 

flag 

END  STORED; 

ADDR  :=  HASH (LENGTH, TOK) : 

IF  ->  (STORED  (CDR  (ADDa)  ) OR  STORED  (CAR  ( ADDR)  ) ) THEN 
BEGIN 

fiEADER:=ALLOCATE; 

BCILD  ATCNi'TOK,  LENGTH,  HEADER)  ; 

POSH (HEADER,  ADDR): 

END 

END  LCOK_0?: 

PROCEDURE  BUILD  TOK; 

CONSENT  ADD'NSXT  CHARACTER  TO  TOK; 

BEGIN 

IF  LENGTH  >=  72  THEN  STN  ERR(1) ; 

TOK(LENGTHI  1)_  :=  C; 

LENGTH:=LENGTH* 1; 

END  SUILD_TOK; 

CONSENT  SAIN  OF  SCANNER; 

LENGTH  ;=  0; 

■ — (I  II  , 

i?‘c<"A"  THEN 
BEGIN 

"^F  c = ''**'***  ’*43N 
BEGIN  “ 

WHILE  = DO 

BEGIN 
GNC  : 

BUILD  TOK; 


END  ; 

GNC; 

TYPE  ;=  CONSTANT 
END 

ELSE  IF  ((C=*'»" 

(C  =''&'• 

BEGIN 


c; 

:=  1 


LOOK_3P; 


) OR 

(C=''<")  OR 

(C=  '’>") 

OR  ( 

) OR 

iC=''(")  OR 

)c='')  "( 

OR 

) OR 

(C="  'M  08 

|c=".") ) 

the 

“"Y  ?2 

:=  SPECIAL; 

TY  ? 2 

:=  IDENTIFI 

ER; 

C = "B'M 

c = '':  ”j 


LOOK  UP 


THEN 


rOK  :=  C; 

END 

ELSE 

BEGIN 
TCK  : = 

LENGTH 
END 

END 

ELSE 

I?  (C>  = "A")  AND  (C<  = "2") 

B EGIN 

WHILE  NO  >=  "A"  DO 
BEGIN 

BUILD  TOK; 

GNC;  ~ 

END: 

BUILD  TOK; 

TYPS;=IDENTI?IER; 

LOCK  UP; 

END  ~ 

ELSE 

I?  C>="0"  THEN 

BEGIN  INTEGER  SUS; 

SOS  :=  0; 

WHILE  NC  >=  "0"  DO 
BEGIN 

SUS  :=  10*SUS 
IF  SOS  > (3 
GNC; 

END: 

SUS  :=  10»SUS  ♦ (DECODS(C)  - 240); 
TYPE:=N0SS; 

HEADER  • 

END 

ELSE 

STN  ERR  (3)  : 

GNCJ 

WHILE  C*"  '• 

END  SCANNER; 


;US  * (DECODE(C)  - 240)  ; 
lAXINTEGER  DI7  10)  THEN  SYN  Er 


:(2)  : 


30ILD_C_AT0S  (SUS)  ; 


DO  GNC; 
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OO 


03  6U  -- 
0364  — 
0364  -- 
0 3 64  — 
0364  -- 
03  64  -- 
0364  -- 

0364  -- 

0365  -- 
0365  2- 
03  66  — 
0367  — 
03  68  — 
0363  — 
0 369  3- 
0371  — 
0371  — 
0373  — 
03  74  -- 
0375  -- 
0375  -3 

0375  -- 

0376  3- 

0377  -- 
0377  -- 

0377  -- 

0378  — 
0380  — 
0330  -3 

0330  -2 

0331  -- 

0331  — 

0332  -- 
0332  -- 
0392  2- 
03  33  -- 

0383  — 
03  34  -- 

0384  3- 

0385  — 
0336  -- 
03  37  — 
0388  — 
0369  — 
0390  -- 
03'>1  -- 

0392  -- 

0393  -- 
03  94  -- 

0395  -- 

0396  -- 

0396  -3 

0397  -- 

0397  -- 
03  97  — 
03  98  — 

0398  3- 

0399  -- 

03  99  — 

0400  4- 
0403  — 
0403  -- 

0403  -- 

0404  5- 

04  06  -- 
0407  -5 
0407  -- 
0409  -- 
0409  -4 

04  10 

04  10  — 
04  11 

0412  -- 

0413  -- 

0414  

0415  -- 
04  16  — 
04  17  — 
04  18  — 
0419  — 

0419  -3 
04  20  -- 

0420  -- 
04  20  -- 

0421  -- 
0421  -- 
04  22  -- 
0423  -- 
0425  -- 
04  25  -2 
04  26  -- 


SECTION  VIII: 


raANSLATION 


INTEGE?  PaoCECOaS  30TI0S; 

COaSSNI  LEFT  PAHENTHESIS  ALHEADT  seen 
3SGIN 

INTEGEa  ?: 

SCANNEH; 

TF  'OK  =■  "1"  ”3EN  NIL 
ELSE  I?  TOR  = T3EN 

BEGIN  SCANNEE: 

I?  TOK  = THEN  ? :=  31JILD3 

ELSE  T :=  HEADEH; 

SCANNEH; 

I?  TOK  -=  ")”  THEN  SIN  E3H  (7)  ; 


ELSE 


END 


3EGIH 

I?  (TYPE  = IDENTIFIED) 


HEADEa 
ELSE  I?  TOK  = " (" 
ELSE  SIN  Ea?,(7)  ; 
CONS  (T.SCILDS) 

END 

END  30ILDS; 


OR 


J’HEN  T 


(TYPE  = NOaS)  THEN 
= 30ILDS 


IN'DDjEa  T^nnC; 

‘“cOaaENT  f EANSLATE'  A N a-IX??.ESSION  D'JNCTTON 
INTO  AN  INT’ENAL  " 

3EGIN 


3-EiPaESSICN; 
’ONC: 


INTEGER  PaCCEDUDE  LA3L*.  . ^ , 

CCaaENT  TaANSLAIE  A'LASEL  FONCTICN; 
3EGIN 

INTEGEa  FF.FDNC; 

SCANNER; 

IF  TOK-=  '■<"  THEN  SIN  Z5~.  (4)  ; 
SCANNS?.; 

?F  :=  HEADia; 

SCANNEE; 

I?  TOK  -=  THEN  SYN  ZER  (4)  ; 

SCANNER; 

FONC  ;=  TFONC; 

SCANNER; 

IF  TOK  '•>"  THEN  SIN  EHR  (4)  ; 

COSS3  (LA3EL,?F,  FONC) 

END  LABEL  FONC; 


INTEGEa  RROCEDOPE  LA.H3DA  FONC; 

COaaENT  TRANSLATE  A lAHSOA  FONCTION; 
3EGIN 


INTEGER  P3CCED0P.E  7A3LIST; 

3EGIN  INTEGER  T;  SCANNER; 

IF  TCK  = THEN 

T ;=  NIL 

ELSE  I?  (TOK="<’’\  03  (TOK  = '';”)  THEN 

3EGIN  SCANNER: 

T :=  CONS(HEADER,  7AF.LIST)  ; 

END 

ELSE  SIN  Eaa  (10)  ; 


END  7ARLI5T; 


INTEGER  7LrST,FC?.a; 

SCANNEH; 

IF  TOK-.=  "<''  THEN  SIN  ERE  (5); 
7LIST  :=  7ARLI3T; 

SCANNER; 

IF  TOK-k=":"  THEN  SIN  ERR  (5)  ; 
FOR*  :»  TFOaa; 

SCANNER; 

I?  TOK  -=  ">'•  THEN  SIN  133  15); 
CONS3  (LA.H3DA.  '/LIST,  FOEH) 
end  LAaSDA  FONC; 


INTEGER  FN; 

IF  T'^pD  = IDdnTId'dp  py 

ELSE 'if  T0K  = ''5"  THEN  FN 

ELSE  IF  TCK="3"  THE 

ELSE  SIN  ERR  (6)  ; 

FN 

END  TFONC; 


FN 


= HEADER 
= LAHSDA  FONC 
= LA3EL  ?ONC 


80 


-3 


5- 


0426  -- 

0427  — 
0427  2- 
0423  -- 
04  23  — 
0429  — 

0429  3- 

0430  -- 

0431  -- 

0432  -- 

0432  — 

0433  -- 
0433  — 

0435  -- 
04  35  -3 

0436  -- 

0436  -- 
04  37  — 
04  37  — 

0437  3- 

0438  -- 
04  38  — 

0439  -- 

0439  4- 

0440  — 

0441  — 

0441  — 

0442  -- 

0442  5- 

0443  -- 

0444 

04  4 5 — 
0446  -- 
0446  — 
J4  4b 
0 4 4 d — 
04  48 
04  49 
04  4 9 
04  49 

0450 

0451  -- 
0453  -- 
0453  -5 
0453  — 
0455  -- 

0455  -4 

0456  -- 
04  56  — 
0 4 56  - 3 

0457  — 
0457  — 

0457  -- 
0453  -- 
0453  -- 

0458  -- 
0453  -- 

0458  -- 
04  58  — 

0459  -- 
0459  -- 

0459  — 
0439  -- 

0460  — 
0460  — 
0460 

0460  -- 
04  61  — 

0461  -- 
04  61  — 

0461  -- 

0462  -- 

0462  3- 

0464  — 

0465  — 
04  6=  — 
04  66  - 3 

0466  -- 

0466  -2 

0467  — 
0467  -- 

0467  -- 

0463  -- 

0468  2- 
04  69  -- 

0470  — 

0471  — 

0471  -- 

0472  3- 

0474 

0 4 74 
04  74  -- 

0475  -- 
04  75  -- 
04  17  -3 

0473  -- 
0478  -2 


:HT2GSa  ?30C2E'JRS  7?Oa.1; 
COM.12MT  'TRAHSlATa  A 
32GIM 


?0R2; 


IMT2G2P  ?aOC2DO?2  APG  LIST; 

COHMHMT  CO;;STaOCT"A;i  AHGUMHST  LIST; 

32GIH 

I.'IT2G2R  T; 

SCANHia; 

17  TOK  = ">ii  rHS;j  ; ;= 


2LS2  17  (TOK  = " <")  Oa  (TOK=  " ; 

T ;=  co;is  (T7oa;i,  A?,G  li§t 
2L32  SYH_2aa  (9)  ; 

2;iD  AaG_LisT; 

INT2G23  ?aOC2DOR2  30IL0  COHO; 

COaS2HT  TRANSLATS  CONDITIOHAL 
IHT2RHAL  S-2X9R2SSIOH ; 
B2GIN 


TH2H 


H-2XPR233I0H  IHTO 


IHTEGEH  PROCEDORE  37ILO  ? E PAIRLIST; 

CCnHE'JT  3UILD  ?320ICATE=EX?RESS  lO'.I  PAIR  LIST; 
3EGIH 

IHTEGER  T2; 

INTEGER  PROCEDURE  ? E PAIR; 

COa.RENT  BUILD  PREOOI  CATE- EX  P RESSIO'I  PAIR; 
3EGIN 

INTEGER  ?,E; 

? ;=  rEORa; 

SCANNER; 

17  TOK  = THEN 

E : = CONS  (TFORa  ,NIL) 

ELSE  STN  ERR  (3)  ; 

CONS  (P,  Ef 
END  ?_E_?AIR; 

17  TCK=''>"  THEN  T2:=NIL 

ELSE  I?  (TOK  = "<")  OR  (TOK  = " ; THEN 
BEGIN 

T2:=?  E PAIR;  SCANNER; 

T2: =COn3(T2, BUILD  ? E PAIRLISII 
END  - - - 

ELSE  S 7.V  ERR  (9>  ; 

T 1 ” 

END  ?_2_?AIP.LI3T; 

CONS (COMD, BUILD  P S PAIRLIST) 

END  3UILD_COND,- 

COaaENT  aAIN  O?  TFORN; 

SCANNER; 

IF  (TT?S=CON£TA;;ri  OF.  (TY?E  = NUaS)  THEN 
COaaENT  Fosa  is  a constant; 

CONS  (QUOTE,  CONS(HEADER,  NIL)) 

ELSE  IF  TCK  » " ("  THEN 

COaaENT  FORa  is  an  s- expression ; 

CONS (QUOTE, CONS  (BUILDS, NIL) ) 

ELSE  IF  (TYPE=IDSNTIFIIR)  AND  ( C-="<")  THEN 
coaaiNT  Foa.a  is  a v.ariaile; 

HEADER 

ELSE  I?  TDK  = CHEN 

COaaENT  Foaa  is  \ conditional; 

3UILD_COND 

ELSE  CCaaENT  FORa  IS  A FUNCTICNKARG  LI5T>  OR  .A  FUNCTION 
(FUNCTIONAL  ARGOHENT)  ; 

BEGIN  INTEGER  T; 


IFONC; 

Ts  c = i.<i.  C0N3( 

ELSE  CONS (QUOTE,  CONS (7 
END 


/A 


ARG 


NIL)  ) 


:sT) 


END  TiOfia; 


INTEGER  PROCEDURE  TAROS; 

COaaENT  BUILD  ARGUaENT  LIST  UP  3- EX P? ES S IONS  ; 
BEGIN 

INTEGER  T; 

SCANNER; 

IF  TCK  = ">"  THEN  T NIL 
ELSE  IF  (TOK  ="<")  oR  (TOK  = ";  n) 

BcGIN  3CA.VNEF.; 

IF  (TYPE*ID ENTIFI^n  OR  ' TYPE »N UaS)  THEN 
I :=  CONS  (HEADER,  :.\  = JS) 

ELSE  IF  TOK  = " ("  THEN 

T CONS  (BUILDS, T.ARGS) 

ELSE  3YN  EFR  (9)  ; 

END; 

END  TARG3 ; 
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3- 


-3 


3- 


0«79 
OU  79 

0479 
04  79 
04  79 
04  79 
04  79 

0480 
04  30 

0480 

0481 

0481 

0482 
04  32 
04  32 
0433 
04  8 3 
04  84 
04  84 
04  34 
■0435 
0487 
04  33 
04  33 
0489 
04  90 
04  90 

0491 
0-*91 

0492 
0492 

0492 

0493 

0493 

0494 
04  94 
04  94 
04  95 
04  96 
04  96 
04  97 
04  97 
04  97 
04  97 
04  97 
04  97 
04  93 
04  98 
04  99 

04  99 

05  00 
0500 
05  00 
05  00 

0500 

0501 

0502 

0502 

0503 
0503 
0503 
05  04 
0 504 
0 504 
05  05 

0505 

0506 

0506 

0507 

0508 
05  06 
05  09 
05  09 

0510 
05  n 

0511 
05  11 
05  ’2 
05  12 
05  ’3 
05  13 
05  '4 

'1-5 

t • ; 

i <£ 


i ■'  .. 

< • a .. 


COKSSS 


S2CTIOH  IX:  IXT29PS2TATI08 


5- 


5- 


5- 


-5 


INI 


2G2H  ?BOCEDUa2  27iLQUOI2  (IMT2323  ViLU2  ' , X): 

COXflEHT  2VAi,JAI2  TH2  F'J'.tCTIOS  AT  '2V  APPLIED  TO 
THE  ASGOMESTS  AT  'X'; 

BEGIN 

INTEGEa  PaOCEDORE  COSPOS E (INTEG EE  7AL0E  X , I) ; 

COXaENT  aSTOaN  PATA  EIEaENT  AND  ASSOCIATED 

G-VSCTOa  aEPaESENTING  70NCTI0NAI  COaPOSITICS; 
CONS  (CA3  (X)  .APPEND  (Y  , CD3  (X)  ) ) ; 

INT2G2P.  :>aOCEDO?.E  APPEND  ( INTEGER  7AL0E  X , I)  ; 
ccaaE'JT  append  list  r to  list  x; 
r T X = N L T u p •[ 

ELSE 

BEGIN  INTEGE3  I; 

T :=  X; 

XHILE  CDH(T)  - = 

T : = CDRd) 

3ETCDH  (T  ,Y)  ; 

X 

END; 


NIL  DO 


INTEGEP  paOCEOOPE  A PPLT < I NTEO ER  7 ALOE  ?N , 


COaaSNT  APPLY  THE  ?’JSCTION  TO  ITS  AP.GuXisTS  A.'.'D 
GENERATE  THE  ASSOCIATION  LIST; 

BEGIN 

INTEGER  PRQCEOOPE  INCR  G; 

I?  ARITH  AND  (?N  <“IaOL)  THEN 
__^CDR  (X) 

^*A?PEND  (CDE(X)  ,CONS  ( BOIL  D_  I_  ATO*  (1)  , NIL)  ) ; 

INTEGER  PRGCSDORE  PAIRLIS  (INTES  ER  VALOE  Y,  A); 
CCa«ENT  30ILO  A LIST  0:  PAIRS  OP  COR? ts PON D ING 
ELZHENTS  OF  LISTS  X AND  Y AND  APPEND  THIS  NEN  LIST 
TC  THE  ASSOCIATION  LIST; 

I?  NDL(X)  AND  NOL(Y)  THEN 

ELSE  IP  ATOa(X)  OR  ADO!'(Y)  THEN 
EXEC  2RR|3,A) 

P T 5P  ” 

“cons  (CONS  (CAR  (X)  ,CA?  (Y1  ) , 

PAlRLIS  (COR  (X)  ,CDP.  (T)  , A)  ) ; 

COS-ENT  NAIN  OF  APPLY; 

I?  ATCM(CAR(Xn  THEN 
EXEC  ERR  (5,  CAR  fXn 
ELSE  I?  ITCH  ?N)  THEN 
BEGIN 

IF  EQ  (?N,  ICAR)  THEN 
3&GIN 

I?  ATOM  (CAA?.  (X)  ) THEN 
EXEC  ERR  /4.CAAR  (X)  ) 

ELS  3 ~ 

“C0NS(CAAR  (CAR  (X)  t , INCR  S) 

END 

ELSE  17  EO(?N,ICDP.)  THEN 

CONS  (CDAR  (CAR  fX)  ) . INCH  01 
ELSE  IF  EQ(?S, ICONS)  THEN  " 

CONS  (JCNS  (CAAR  fXl  .CAD.AR  (X)  ) , IN. 

ELSE  I?  23(7N,:ATOi)  THEN 
BEGIN 

IF  ATOa  (CAAR  (X)  1 THEN  CONSfT,  INC?  G) 

ELSE  CONS  (?,  INCa  3) 

END 

ELSE  17  S2(7N,I20)  THEN 
BEGIN 

IF  30  (CAAa(X),  CADAR(X))  THEN 
CONSfl,  INCH  G) 

ELSE  CONS  (7,  INC?  G1 
END 

ELSE  17  EOrPN,  lADD)  THEN 

CONS  (ADD  (CAAR  [XI  , CADAR  (X)  1 , INCR  G) 

ELSE  17  EO(?N,  INUL)  THEN 

__^CONS  (,'i'jL(CAAR  (X)  , CADAR  (X)  ) , INCR_G) 

^“aPPLT  (CAR  (E7AL  (7N  ,A1  ) , X , A) 

END 


A) 


'NCR 


ELSE  I?_EQ  (CAR  (?N)  , LANBD  A)  THEN 
3 EGI N 

INTEGER  ?.  TEaP; 

? :»  PAIHilS  (CADR  (7N)  ,CAR  (X! 
TEaP;=27AL(CADDR  (7N)  , ?)  ; 

FREE  A LIST!?,  A); 

CORPOSE  (TEHP,  CDR(X)) 

ELS-'i?  ED  (CAR  (?N)  , LABEL)  THEN 
APPLY  (CACO!i  (?N)  , X, 

v:  ? I r 


A) 


CONS  (CONS  (CADR  ( FN)  , CATDR  (FN)  ) , A)  ) 
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0522  -- 
05  23  -3 
052U  -- 

0524  -- 

0525  -- 

0525  3- 

0526  -- 
05  26  -- 
052'’  -- 

0527  -- 

0527  -- 
05  27  — 
052-’  — 

0528  -- 
0526  -- 
05  29  -- 
0530  -- 
0530  -- 

0530  -- 
05  31  -- 

0531  4- 
05  33  — 

0533  — 

0534  -- 

0535  5- 

0536  -- 

0536  -- 

0537  -- 
0540  -- 
0543  -5 

0s44 

0 5 44  -4 
0545  -- 

0545  -- 
05  46  — 

0546  -- 
0546  — 
05  40  -- 

0546  -- 

0547  — 
05  43  — 

0548  — 
05  49  — 
05  49  — 

0549  4- 
05  50  -- 
05  50  — 

0550  -- 

0551  -- 

0551  -4 

0552  -- 

0552  -- 

0553  -- 
0 5 5 3 — 
J 553  4- 
0^54  -- 

0554  -- 
05  54  — 
05  55  — 

0555  -4 

0556  -- 

0556  - - 

0557  -- 
0557  -- 
0557  -- 
0557  — 
0557  -- 
0557  -- 
0553  -- 
0553  -- 
0560  -- 
05  60  -- 
0560  -- 
0560  -- 

0560  — 

0561  4- 

0562  -- 
0562  -- 

0562  -- 

0563  -- 

0563  -- 

0564  -- 
0564  -4 

0564  — 
05  o5  -- 

0565  -3 

0566  — 
0566  — 
0566  — 
3566  — 
0566  -- 

0566  -2 

0567  -- 


EL3E  £72C  33H(1,?N) 

2HD  1F9LTT 

INTEOES  PROCEDOSE  E-7AI.  ( I NTEGEP.  vALOE  E,  A)  ; 

CORMENT  E7AL  HANDLES  FOB.HS  ; 

3EGIH 

INTEGER  PROCEDURE  ASSOC r2NTEGER  7AL0E  X,A»; 

CCHHENT  RSTUR;.'  THE  EIRSI  PAIR  IN  THE  ASSOCIATION 
LIST  WHOSE  FIRST  TER.1  IS  X; 

IF  NOL  (A)  THEN 
EXEC  HR?.(2,:() 

ELSE  IF  EQ  (CAAR  (A)  ,X1  THEN 
CAR  (A) 

ELSE 

ASSOC  (X.CDR  (A)  ) I 

INTEGER  PROCEDURE  SUN ^INTEGER  7AL03  I,?): 

COH.HSNT  SOH  CORRZSPO  N DI NG  ELEMENTS  OF  X AND  T: 
BEGIN  INTEGER  T: 

IF  NOL(X)  THEN  T :=  I 
ELSE  IF  NOL(X)  THEN  T ;=  X 
ELSE 

BEGIN 

T :=  CONS  (ADD  (CAR  (X)  ,CAH(T)  ) , 

303  CDRrxi  ,CD?.(Y  , ; 

FREE  (CDAR  (X)  ) : FREi  (CA  R (X)  ) ; FREE(X); 

FREE  (CDAR.  (X)  ) ; FREE  (CAR  (X)  ) ; FHEI(X): 

^ END; 

END  SOM; 

INTEGER  PROCEDORS  TO M BINE (INTE3 ER  7AL0E  X,T); 

COMMENT  COMBINE  EVAOLOATED  ARGUMENTS  AND 
G-7ECT0HS ; 

IF  NOL(T)  THEN 

^^^^CONS  (CONS  (CAR  (Z)  ,NIL)  ,CCR  (X)  ) 

“cons  (CONS  (CAR  (X)  , CAE  (T)  ) , 3 OM  (CD?  (X  ) , CD  R (X)  ) ) 

INTEGER  PROCEDURE  E7LIS (INTEGER  7A1UE  MjA); 

COMMENT  RETURN  E7ALUATID  ARGOMENC  IISU 
AND  COMBINED  G-7ECTUR ; 

3EGIN 

I?  NUL(M1  THEN 

nil  ■ 

ELSE 

“combine  (E7AL  (CAR  (M)  ,A)  , EVLXS  (CDR  (M)  , A)  ) 

END  S7LI3; 

INTEGER  PRCCEOU’E  E7C0N (INTE3E?  7A1UE  C.A); 

COMMENT  RETURN  EVALUATED  CONDICIONAL  AND 
G- VECTOR; 

EEGIN 

I?  C = NIL  THEN 
EXEC  EHH(5,A) 

ELSE  ” 

GHA?HCON(EVAL  (CAAR  (C)  ,A)  ,C,  A) 

END  E7C0N; 

INTEGER  PROCEDURE  R RAPHCON (INTEGER  7ALUE  ? , C , A1 : 
COMMENT  COMPOSE  J-7ECT03  FROM  PREDICATE  WITH 
G-VECTOR  FROM  REMAINDER  OF  CCNDIIIDNAL  AND 
RETURN  WITH  VALUE  OF  CONDITIONAL; 

I?  CAR(?)  = T THEN 

COMPOSE  (E7AL(CADA?  (C)  ,A)  ,CDR  (P)  ) 

ELSE  I?  CAR(P)  = F THEN 

COMPOSEjEVCON  (CDR  (C)  , A)  ,CDR  (?)  ) 

ELSE  SX£C_EPR(7,EAAR(C) ) : 

COMMENT  MAIN  OF  E7AL; 

IF  ATOM  (El  CHEN 

CONS  (_DR  (A3  3CC(E,A)  1 , NIL) 

ELSE  IP  ATOM  CAR(El)  TH2n 
BEGIN 


IF  EQ  (CAR  (E)  . 2UOTE)  THEN 
CONS  (CADR  (E)  , NIL) 

ELSE  IF  SQjCARfE) ,COND)  THEN 
^,^^S7C0N(dDR(i)  ,i) 

““^“apPLX  (CAE(S)  ,EVLIS  (CDR(E)  ,A)  ,A) 

else" 

END  (‘^•'^<->'-'^^’2(C0R(E)  ,A1  , A) 

COMMENT  MAIN  OF  E7ALQOOTE; 

APPLY  (FN  ,CONS  (X  , NIL)  , NIL) 

END  E7ALQUCT2; 


m 


83 


aaop.  HiSDLXSG 


PROCEDURE  'HHCS 
C3MMEST  ha:! 
SEGIS 
CASE  K 0? 
BEGIN 

uq--TT  /II 

33IT3 


0573  - 
057U  - 

0575  - 

0576  - 
05  76  - 
05  77  - 

0577  2 

0578  - 

0579  - 

0530  - 

0531  - 

0532  - 

0533  - 
058«  - 

0535  - 

0536  - 
05  37  - 

0537  3 
05  38  - 
0539  - 
05  90  - 

0591  - 

0592  - 

0593  - 
059U  - 

0595  - 

0596  - 
05  97  - 
05  98  - 

0599  - 

05  99  - 

06  00  - 

0600  - 
0601  - 
0601  2 
0602  - 
06  02  3 
06  03  - 
060U  - 
0605  - 
0605  - 
06  06  - 
06  07  - 
0607  - 
06  08  - 
06  08  - 
06  09  - 
06  09  - 
06  10  - 
06  11  - 
0612  - 
06  13  - 
06  13  - 
06  1U  - 
06  1U  - 
0615  - 

0615  2 

0616  - 
0616  3 
06  18  - 
06  18  U 
06  19  - 
0621  - 
0623  - 
0623  - 
062“  - 
0625  - 
06  26  - 
06  27  - 
06  28  - 
06  29  - 


PHOCEDDRE  SYN 
COMMENT  H5 
5 Z G ^ N 

STRING  (301 
I?  -LIoT  T 
ERSBO?  := 
EF.R3U7  (13? 
naiTE  (•' 
■>!P.I"S  ("«•« 
SSITSON (“S 
liRITEOS  i" 


WRITE  ("ERROR-  IRPROPERIY  DEPIliEO  E'JNCTICN 
WRITE  "ERROR-  ONDEFINEO  VARIABLE  OR  F'JSCT 
WRITE  ("3HECR-  VARIABLE  LIST  DOES  SOT  NATO 
"ARGUNENT  LIST.  LATEST  A-LIST  IS:") 
W RITE  ("ERRO  R-  ATT'NPTEO  C.'.R  OR  ATOa."): 
WRITE  ("ERROR-  ARGONEKT  LIST  CA.SNOT  BE  AS 
"ARGOHENT  LIST  IS:"1  ; 

WRITS ("ERROR-  OSDEEISEO  lOSDITIONAL.  ", 
"LATEST  A-LIST  IS:"): 

WHITE ("PR EDICATE  ODES  SOT  GIVI  TROTH  VALO 
" PREBIC.ATE  IS:"); 


0629  -- 
0629  -- 
0629  — 
0629  -- 
0629  -- 
0629  -- 

0629  -- 

0630  -- 

0630  2- 

0631  -- 

0632  -- 

0633  -- 

0633  -- 

0634  — 

0634  3- 

0635  — 
06  37  — 
06  38  -3 
06  39  -- 

0639  -- 

0640  -- 

0640  3- 

0641  — 

0642  -- 

0643  -3 

0644  — 

0644  — 

0645  -- 

0645  3- 

0646  — 

0647  -- 

0648  — 
06  48  — 

0649  -- 
0649  -- 

0649  -- 
06  50  — 

0650  -- 
06  51  — 

0651  4- 

0653  -- 

0654  -- 
0635  — 
56  56  — 
06  57  -4 
0658  -- 
0653  -- 
0653  4- 
0660  — 
06  5 1 
06  61 

0662  4- 

0663  -- 

0664  -- 

0665  -- 
0c65  5- 

0666  -- 

0667  — 

0668  -5 

0669  -4 
0o70  -3 
0671  -- 

0671  — 

0672  — 

0672  3- 
06  73  — 

0673  -- 

0673  -- 

0674  4- 

0675  -- 
0677  — 
06  78  -- 
0679  -- 
0679  -- 

0679  5- 

0680  -- 
0682  -- 
0633  -5 
36  83  -- 
0684  5- 
0665  — 
36  36  — 
0687  -5 
06  38  -- 
06  90  -4 

0691  -3 
06  92  -- 

0692  -- 
3692  -- 

0693  -- 

0694  — 
3635  -- 
06  96  -2 
0697  -- 
3697  -- 


-4 


• sscrios  XI: 


OCTPOT 


FFOCSDORS  COTPOT  (r:iIIGES  7AL0E  X)  ; 
COXSEIII  ?SINT  LIST  300150  AT  X; 
350IN 

SI3ISG/72)  OUrSOr; 

ISTSGSa  CsP; 


PSOC200R5  DOM?: 

CDMMEST  PSIHT  G0TP7T  5C/PPE3: 
BEGIS 

WRITS  (00130?)  : sxiPfi): 

OSP  :=  0;  OOTSOr  : = " " 

END  DOHP; 


PROCEDDRS  30MF  08P; 

CCMBEST  MARAGES  OOTPOT  aO??ES  SITS; 
BEGIN 

03?  :=  OBP+1; 

IF  OB?  >=  72  THEN  DO*?; 

END  BUS?  OBP; 


PHOCEDDRE  PRINT  ATOM (INTEGER  7AIOE  XI: 
COMMENT  ?OT“ArOM  INTO  OOTPOI  SOFTER; 
BEGIN 

STRING (72)  SOT?; 

INIEGIR  LENGTH; 


LOGICAL  PROCEDORE  NOM  ATOM  (INTEGE’  VJ.LOE  X)  ; 
COMMENT  DETERMINE"!?  AN  ATOM  HEADER  CELI 
POINTS  TO  A NOM3ZR: 

3ITSTHING  (CAS  (X)  ) = ?0000???E; 


PROCEDORE  DOMP  NOM  (INTE3E?  7AL0E  N) ; 
COMMENT  DOE?  NOM3SH  TO  COTSO?; 
BEGIN  LENGTH  :=  LENGTH  » 1; 


:?  (LENGTH  + 03?)  > 72  THEN  DOM?; 

I?  N > 9 THEN  DOM?  NOM(N  017  10) 


O0T30?  (OBPt  1) 
BOMP  03 P; 

END  EOM?  NOM; 


:=  CTDE((N  RIM  10) 


:40)  : 


NOM  ATOM  (X)  THEN 
3ECIN  LENGTH  :=  0; 

DOMP  SOM  (NUMBER  (;i  (COR  (X)  ))  ) ; 
END  ” 


■LSS 


GET  PNAME  (X  ,30??,  LENGTH)  : 
I?  lENGTH  > (71-OEP1  THiN 
FOR  I:=0  ONTiL  LENGTH-1  DO 


DUMP: 


BEGIN 

O0T3O?  (OBPI  1)  :=  30??  (I  I 1)  ; 

30MP  OSP; 

END  ;" 

END-; 

END  PRINT  ATOM; 


PROCEDORE  WRITE  S(INTS;ER  7ALJE  X); 

COMMENT  WRITE  S-SXPRZSSION  AI  T ONT 


BEGIN 


0 OOTPOT  30F7EP: 


I?  ATOM  (X)  THEN 
[NT  ATO.K 


PRINT  ATO.M(X) 

® H 7 — 


BEGIN 
C0T3OP  (03?)  1) 
•jt  T-"7  ^ ir  \ s tr} 


I . It  / tt  r 


WRITE  3 (CAP  (X)  ) ; 
X :=  COR  (X)  ; 


BOMP  OBP; 


:=  ";  BOMP  OBP; 

X:=NIL 


WHILE  X -=  NIL  DO 
IF  ATOM  (X)  THEN 
3EGIN 

00T30F  (03PI  1) 

PRINT  ATOM(X) 

END 

ELSE 

BEGIN 

50MP  03?:  COMMENT  OOTPOT  A 3LANH; 

write  S (CAR  (X)  ) ; X:=COR(X) 

END;  " 

OOT3UF  (05?|  1)  :=■  ")'';  BOM?  OSP; 


END; 


END  WRITE  3; 


OSP  : = 0 ; 
0UT30F  :=  " 
WHITE  3 (X)  ; 
DOM?;" 

END  OOTPOT; 
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0697  — PSOCEDUBE  SKI  ? (lilTE  5E  B 7AI.3E  X)  ; 

0o98  — COnSEN'T  SKIP  X :ia.XBEB  OF  LIMES; 

0698  --  FOP.  I:  = 1 UNTIL  X 00  MBITEf"  ")  ; 

^6  99  — 

3l  99  --  CCH.“.EMT** ••*•••••*•  **»'*************'**»*»-'***«»«»«*»»»*»»*^ 

06  '.9  - - • 

06  97  — • SECTION  X:  .XOMITOB  • 

06  99  « > 

0699  -- 
06  99  -- 

06  99  -- 

0699  — EROCEDOHE  SOSITOR; 

0700  — CO.'I.IE.MI  I;;VOKE  TS  A.'JSLAriON  HCOTIMES,  OUTPUT  T.7 .9  N3IA  TI3M 

0700  — I?  TRANS  IS  T2UE,  INVOKE  INTEBP.RETER  ROUTINES  AND 

0700  — OUTPUT  RESULTS; 

0700  -- 

07CO  2-  BEGIN 

0700  — INTEGER  FS,  AHGS,  VAL; 

0702  — INTEGER  .NAXWIDTH,  NAXPA  THLZNGTH,  NOOESON; 

0703  — HEAL  SPEEDUPRAT TO ; 

070U  -- 

0704  — PROCZOURE  GETSTAT3  (INTEGER  VALUE  VECTOR); 

0705  3-  SEGIN 

0705  — NAXVICTH  :=  0;  N AX  PATH! ■ N GTH  :=  0; 

0708  — NODESUn  :=  0: 

0709  — VNILE  ->NUL  (VECTOR)  OO 

3709  4-  BEGIN  INTEGER  VIUTR; 

0711  — •TOTH  :=  NU  N3EP.  ( N (CO A S ( VECTOR)  1 ) ; 

07)2  --  NCDESU.1  :=  NODESUN  * vioTH; 

07  13  — I?  WIDTH  > .NAXWIDTH  THEN 

0713  --  .1AXWIDTH  ;=  WIDTH; 

0714  --  .HAXP.ATHLENGTH  :=  .XAXPATHL2N  GT  H 1; 

0715  --  VECTOR  ;=  CDR(VECTOR); 

0715  -4  END- 

0717  — SPEEDUPR.ATIO  :=  NDDE30H  / .N  A.XP  A THLENGTH; 

0718  -3  END  GETSTATS; 

0719  -- 

07 19  — INTHAN5  : = TRUE; 

0720  — SCANNER; 

0721  — FN  :=  TFONC; 

0722  — ARCS  :=  TASGS; 

0723  — ISTRANS  :=  FALSE; 

0724  — I?  TRANS  THEN 

0724  3-  BEGIN 

0725  --  SKIP  (2)  ; 

0726  — WHITE  ('' •»•*»*  TRANSLATION  FOLLOWS 

0727  — SKI?  (1)  ; 

0728  — OUTPUT  (FN)  ; 

0729  --  OUTPUT  ARCS)  ; 

0730  -3  END; 

0731  — SKIP  (2)  ; 

0732  — WRITE  (''«**»»«  EVALUATION  BEGINS  ««««••"); 

0733  — VAL  :=  EVALQUOTE  (FN , ArGS); 

0734  — 3KI?(1)  ; 

0735  — WHITE  (''RESULT  IS;"); 

0736  — OUTPUT  (VAL); 

0737  — SKIP  (2)  ; 

0738  — GETSTATS  (COR  (VAL)  ) ; 

0739  — WRITE  ("PFOCEiSORS  REQUIRED  703  OPTINU.X  ? ARALLE- INC- . " , 

0739  — .NAXWIDTH)  ; 

0740  — WRITE ("EXECUTION  STEPS  (PARALLEL) ", 

0740  --  NAXPATHLENGTH)^  : 

0741  — WRITS  ("EXECUTION  STEPS  (SEQUENTIAL) ", 

0741  — NODESUH)  ; 

0742  — WRITE  ("SPEED-UP  RATIO  (5  EQ7ENT  * AL/P  AR  A LL  EL) ", 

0742  — SPEEDUPRATIO) ; 

0743  -2  END  HONITOR; 

0744  -- 
0744  -- 
0744  — 

0744  --  COI!aSNT»»*»»»****»**»««**»*»»  *•*••-*••«* 

0744  « • 

0744  --  • main  PROGRAH  • 

0744  • • 

0744  — 

0744  — IHITIALIEE;  HONITOR; 

0746  — 

0746  — FINIS  : 

0746  --  WRITS  ("FREE  STORAGE  RE.N  A INI  NG  ; " , ?R  E E CELLS); 

0747  -- 

0747  -1  END. 

EXECUTION  CPTICNS:  DEBUG,  1 ri.NS  = 10  SECONDS  ?AGES=20  XAP,  1IN=72 
008.33  SECONDS  IN  COaPILATTON,  (40748,  07329)  3TTF3  OF  CODE  GENEFATED 
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